perm filename LISPC.LAP[RUT,LSP]1 blob
sn#343773 filedate 1978-03-22 generic text, type T, neo UTF8
(LAP ACTONEXPR SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(MOVEI 2Q (QUOTE COMPEFFECT) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GETGET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(MOVE 1Q -1Q P)
(PUSH P 5Q)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG7
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E FLUSHEXPR) S)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ACTONMACRO SUBR)
(MOVEI 2Q (QUOTE MACRO) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(EXCH 1Q 0Q P)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ACTONEXPR) S)
NIL
(LAP CMP FSUBR)
(PUSH P 1Q)
(JUMPE 1Q TAG1)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG2)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E COMPILEFUN) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 17Q (E DE) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E COMPILEFUN) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP COMPDEF SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E LENGTH) S)
(MOVEI 2Q (QUOTE 4Q))
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE (ARGNOERR-COMPDEF)) S)
(CALL 17Q (E USERERR) S)
TAG5 (MOVEI 2Q (QUOTE DEFACTION) S)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CADDR) S)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(MOVE 1Q -1Q P)
(PUSH P 5Q)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG7 (MOVE 1Q -1Q P)
(CALL 1Q (E FLUSHEXPR) S)
TAG2 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP COMPFILE SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ALLFUNS) S)
(0Q 0Q (SPECIAL UNDFUNS) S)
(0Q 0Q (SPECIAL GENFUNS) S)
(0Q 0Q (SPECIAL CODESIZE) S)
(0Q 0Q (SPECIAL CONSTSIZE) S)
(0Q 0Q (SPECIAL *NOPOINT) S)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 5Q (SPECIAL *NOPOINTDSK) S)
(MOVEM 5Q (SPECIAL *NOPOINT) S)
(CALL 0Q (E TIME) S)
(MOVEI 5Q (QUOTE 0Q))
(MOVEM 5Q (SPECIAL CONSTSIZE) S)
(MOVEM 5Q (SPECIAL CODESIZE) S)
(MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE COMPREADS) S)
(CALL 3Q (E DOFILE) S)
(MOVE 2Q 0Q P)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E TELLTALE) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP COMPFUNC SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL LOCVARS) S)
(0Q 0Q (SPECIAL SPECVARS) S)
(0Q 0Q (SPECIAL P1CNT) S)
(0Q 0Q (SPECIAL P2CNT) S)
(0Q 0Q (SPECIAL LASTOUT) S)
(0Q 0Q (SPECIAL INLSUBR) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E INITSYM) S)
(MOVEI 1Q (QUOTE VAL) S)
(CALL 1Q (E INITSYM) S)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E INITSYM) S)
(MOVEI 1Q (QUOTE SUBFUN) S)
(CALL 1Q (E INITSYM) S)
(MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE NAME) S)
(MOVEI 1Q (QUOTE CURFUN) S)
(CALL 3Q (E INITPROP) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E PASS1) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE SUBFUN) S)
(CALL 1Q (E DEINITSYM) S)
(CALL 0Q (E TERPRI) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE LAP) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(HLRZ@ 5Q -2Q P)
(CAIE 5Q (QUOTE FSUBR) S)
(JRST 0Q TAG5)
(HRRZ@ 5Q -2Q P)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(JUMPE 5Q TAG7)
(MOVEI 1Q (QUOTE (PUSHJ P *AMAKE)) S)
(CALL 1Q (E OUTSTAT) S)
TAG7 (JRST 0Q TAG4)
TAG5 (CAIE 5Q (QUOTE LSUBR) S)
(JRST 0Q TAG10)
(MOVEI 1Q (QUOTE (JSP 3Q *LCALL)) S)
(CALL 1Q (E OUTSTAT) S)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL INLSUBR) S)
TAG10
TAG4 (MOVE 1Q 0Q P)
(CALL 1Q (E PASS2) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NAME) S)
(MOVEI 1Q (QUOTE CURFUN) S)
(CALL 2Q (E DELETEPROP) S)
(MOVE 2Q (SPECIAL P1CNT) S)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG12)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL P1CNT) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E PRINTMSG) S)
(MOVEI 1Q (QUOTE (COUNTSDISAGREE-COMPFUNC)) S)
(CALL 17Q (E COMPERR) S)
TAG12 (MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E DEINITSYM) S)
(MOVEI 1Q (QUOTE VAL) S)
(CALL 1Q (E DEINITSYM) S)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E DEINITSYM) S)
(MOVE 1Q -3Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP COMPILE FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG6)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG10)
(HLRZ@ 1Q -1Q P)
(CALL 17Q (E OUTPUT) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(JRST 0Q TAG7)
TAG10 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E COMPILEFUN) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E *NCONC) S)
(MOVEM 1Q 0Q P)
TAG7 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP COMPILEFUN SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL GENFUNS) S)
(0Q 0Q (SPECIAL UNDFUNS) S)
(0Q 0Q (SPECIAL CODESIZE) S)
(0Q 0Q (SPECIAL CONSTSIZE) S)
(0Q 0Q (SPECIAL MSGCHAN) S)
(0Q 0Q (SPECIAL SHOWNAMES) S)
(PUSH P 1Q)
(CALL 1Q (E UNBREAK!) S)
(MOVEI 5Q (QUOTE 0Q))
(MOVEM 5Q (SPECIAL CONSTSIZE) S)
(MOVEM 5Q (SPECIAL CODESIZE) S)
(HRRZ@ 5Q 0Q P)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -2Q P)
(JUMPN 5Q TAG7)
(MOVE 1Q -1Q P)
(CALL 1Q (E REVERSE) S)
(JRST 0Q TAG3)
TAG7 (MOVEI 2Q (QUOTE DEFACTION) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG2)
(HLRZ@ 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -1Q P)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E UNMACEXPAND) S)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q -2Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DEFPROP) S)
(CALL 2Q (E XCONS) S)
(HRRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG2 (HRRZ@ 5Q -2Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG3 (SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP COMPL FSUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL MSGCHAN) S)
(PUSH P 1Q)
(MOVE 5Q (SPECIAL LISTING) S)
(JUMPE 5Q TAG7)
(CALL 0Q (E GENSYM) S)
(MOVE 2Q 5Q)
(CALL 2Q (E CONS) S)
(CALL 17Q (E OUTPUT) S)
(MOVEM 1Q (SPECIAL MSGCHAN) S)
TAG7
TAG1 (MOVE 5Q 0Q P)
(JUMPN 5Q TAG11)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q (SPECIAL MSGCHAN) S)
(CALL 2Q (E OUTC) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(JRST 0Q TAG4)
TAG11 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E %DEVP) S)
(JUMPE 1Q TAG13)
(HLRZ@ 5Q 0Q P)
(MOVEM 5Q (SPECIAL INDEV) S)
(JRST 0Q TAG2)
TAG13 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL INDEV) S)
(CALL 2Q (E XCONS) S)
(PUSH P (SPECIAL OUTDEV) S)
(PUSH P 1Q)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(HLRZ@ 1Q -2Q P)
(JRST 0Q TAG14)
TAG15 (HLRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
TAG14 (MOVE 2Q (SPECIAL OUTEXT) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E COMPFILE) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG2 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP COMPREADS SUBR)
(MOVEI 1Q (QUOTE ACTONEXPR) S)
(JCALL 1Q (E READLOOP) S)
NIL
(LAP CURFUN SUBR)
(MOVEI 2Q (QUOTE NAME) S)
(MOVEI 1Q (QUOTE CURFUN) S)
(JCALL 2Q (E GET) S)
NIL
(LAP DECLARE FSUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE EVAL) S)
(JRST 0Q *MAPC)
NIL
(LAP DEFEXPR SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(CALL 1Q (E TYPEFN) S)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG6)
(HLRZ@ 5Q 5Q)
(CAIN 5Q (QUOTE LAMBDA) S)
(JRST 0Q TAG5)
TAG6 (MOVE 1Q -2Q P)
(CALL 1Q (E FLUSHEXPR) S)
(JRST 0Q TAG4)
TAG5 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(HRRZ@ 4Q 0Q P)
(HLRZ@ 4Q 4Q)
(JUMPE 4Q TAG7)
(MOVEI 2Q (QUOTE *UNDEF) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMPROP) S)
(JUMPE 1Q TAG13)
(MOVEI 2Q (QUOTE (LSUBR USED AS SUBR)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E PRINTMSG) S)
TAG13 (MOVEI 3Q (QUOTE *LSUBR) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE LSUBR) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E FUNVARTST) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE LSUBR) S)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE LSUBR) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E COMPFUNC) S)
(JRST 0Q TAG4)
TAG7 (MOVEI 2Q (QUOTE *UNDEF) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMPROP) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(MOVEI 3Q (QUOTE *SUBR) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE SUBR) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E FUNVARTST) S)
(HRRZ@ 2Q 0Q P)
(MOVEI 1Q (QUOTE SUBR) S)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE SUBR) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E COMPFUNC) S)
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DEFFEXPR SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(CALL 1Q (E TYPEFN) S)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(MOVEI 2Q (QUOTE *UNDEF) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMPROP) S)
(JUMPE 1Q TAG5)
(MOVEI 2Q (QUOTE (FSUBR USED AS SUBR)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E PRINTMSG) S)
TAG5 (MOVEI 3Q (QUOTE *FSUBR) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE FSUBR) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E FUNVARTST) S)
(HRRZ@ 2Q 0Q P)
(MOVEI 1Q (QUOTE FSUBR) S)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE FSUBR) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E COMPFUNC) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DEFMACRO SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(CALL 1Q (E TYPEFN) S)
(MOVEI 2Q (QUOTE *UNDEF) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E REMPROP) S)
(JUMPE 1Q TAG5)
(MOVEI 2Q (QUOTE (MACRO USED AS SUBR)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E PRINTMSG) S)
TAG5 (MOVEI 3Q (QUOTE MACRO) S)
(HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE GLOBALMACRO) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG7)
(MOVE 1Q -1Q P)
(CALL 1Q (E FLUSHEXPR) S)
TAG7 (MOVEI 2Q (QUOTE MACRO) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E FUNVARTST) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP DO*EXPR SUBR)
(MOVEI 3Q (QUOTE *SUBR) S)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 1Q (E CADR) S)
(JCALL 3Q (E PUTPROP) S)
NIL
(LAP DO*FEXPR SUBR)
(MOVEI 3Q (QUOTE *FSUBR) S)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 1Q (E CADR) S)
(JCALL 3Q (E PUTPROP) S)
NIL
(LAP DO*LEXPR SUBR)
(MOVEI 3Q (QUOTE *LSUBR) S)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 1Q (E CADR) S)
(JCALL 3Q (E PUTPROP) S)
NIL
(LAP DOACT SUBR)
(MOVEI 2Q (QUOTE COMPACTION) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(EXCH 1Q 0Q P)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP DODE SUBR)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(MOVEM 2Q -1Q P)
(CALL 1Q (E CADDRLAM) S)
(MOVEI 4Q (QUOTE EXPR) S)
(MOVE 3Q 1Q)
(MOVE 2Q -1Q P)
(POP P 1Q)
(CALL 4Q (E MAKDEF) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E DEFEXPR) S)
NIL
(LAP DODF SUBR)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(MOVEM 2Q -1Q P)
(CALL 1Q (E CADDRLAM) S)
(MOVEI 4Q (QUOTE FEXPR) S)
(MOVE 3Q 1Q)
(MOVE 2Q -1Q P)
(POP P 1Q)
(CALL 4Q (E MAKDEF) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E DEFFEXPR) S)
NIL
(LAP DODM SUBR)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(MOVEM 2Q -1Q P)
(CALL 1Q (E CADDRLAM) S)
(MOVEI 4Q (QUOTE MACRO) S)
(MOVE 3Q 1Q)
(MOVE 2Q -1Q P)
(POP P 1Q)
(CALL 4Q (E MAKDEF) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E DEFMACRO) S)
NIL
(LAP DOFILE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVEI 1Q (QUOTE INCHAN) S)
(CALL 2Q (E CONS) S)
(CALL 17Q (E INPUT) S)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE OUTCHAN) S)
(CALL 2Q (E CONS) S)
(CALL 17Q (E OUTPUT) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE INCHAN) S)
(CALL 2Q (E INC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE OUTCHAN) S)
(CALL 2Q (E OUTC) S)
(CALLF@ 0Q -2Q P)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP FLUSHEXPR SUBR)
(PUSH P 1Q)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE 1Q))
(POP P 1Q)
(CALL 2Q (E SPRINT) S)
(JCALL 0Q (E TERPRI) S)
NIL
(LAP FLUSHLAP SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(CALL 1Q (E TYPEFN) S)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(MOVEI 2Q (QUOTE ((FSUBR *FSUBR) (LSUBR *LSUBR) (SUBR *SUBR))) S)
(MOVE 1Q 5Q)
(CALL 2Q (E ASSOC) S)
(PUSH P 1Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG1)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q -2Q P)
(MOVEI 2Q (QUOTE (*FSUBR *LSUBR)) S)
(MOVE 1Q 5Q)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG10)
(MOVEI 2Q (QUOTE *UNDEF) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG10)
(MOVEI 2Q (QUOTE (USED AS SUBR)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E PRINTMSG) S)
TAG10 (MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -3Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE *UNDEF) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E REMPROP) S)
TAG1 (CALL 0Q (E TERPRI) S)
(MOVE 1Q -4Q P)
(CALL 1Q (E OUTPUTSTAT) S)
TAG2 (PUSH P (C 0Q 0Q TAG13 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(CALL 0Q (E READ) S)
(JRST 0Q *ERRSET2)
TAG13 (MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(MOVEI 1Q (QUOTE (READERR-FLUSHLAP)) S)
(CALL 17Q (E USERERR) S)
TAG15 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E OUTPUTSTAT) S)
(HLRZ@ 5Q 0Q P)
(JUMPN 5Q TAG17)
(CALL 0Q (E TERPRI) S)
(JRST 0Q TAG4)
TAG17 (JRST 0Q TAG2)
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP FUNVARTST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE *FUNVAR) S)
(CALL 2Q (E REMPROP) S)
(JUMPE 1Q TAG2)
(MOVEI 2Q (QUOTE (USED AS VARIABLE)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E PRINTMSG) S)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP MAKDEF SUBR)
(PUSH P 1Q)
(MOVE 1Q 3Q)
(PUSH P 2Q)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE LAMBDA) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q 4Q)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DEFPROP) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP PRINTMSG SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q (SPECIAL MSGCHAN) S)
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E ATMARGIN) S)
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE 2Q))
(CALL 1Q (E LINEF) S)
TAG5 (MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE *) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q 0Q P)
(CALL 2Q (E OUTC) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP READLOOP SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (PUSH P (C 0Q 0Q TAG5 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(CALL 0Q (E READ) S)
(JRST 0Q *ERRSET2)
TAG5 (MOVEM 1Q 0Q P)
(CAIN 1Q (QUOTE $EOF$) S)
(JRST 0Q TAG3)
(HLRZ@ 1Q 1Q)
(CALLF@ 1Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SPECIAL FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE MAKESPECIAL) S)
(PUSH P D)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP TELLTALE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q (SPECIAL MSGCHAN) S)
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E CARRETN) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
(MOVEI 1Q (QUOTE COMPILED) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE WORDS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL CODESIZE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE CONSTANTS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL CONSTSIZE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E MAPPRINS) S)
(CALL 0Q (E TIME) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E *DIF) S)
(MOVEI 2Q (QUOTE 1750Q))
(CALL 2Q (E *QUO) S)
(CALL 1Q (E ADD1) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P 1Q)
(MOVEI 1Q (QUOTE SECONDS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE 2Q))
(CALL 1Q (E LINEF) S)
TAG1 (MOVE 5Q (SPECIAL UNDFUNS) S)
(JUMPE 5Q TAG2)
(MOVEI 2Q (QUOTE *UNDEF) S)
(HLRZ@ 1Q (SPECIAL UNDFUNS) S)
(CALL 2Q (E HASPROP) S)
(JUMPE 1Q TAG12)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q (SPECIAL UNDFUNS) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
TAG12 (HRRZ@ 5Q (SPECIAL UNDFUNS) S)
(MOVEM 5Q (SPECIAL UNDFUNS) S)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG3)
(MOVEI 1Q (QUOTE (UNDEFINED FUNCTIONS)) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE 2Q))
(CALL 1Q (E LINEF) S)
TAG3 (MOVE 5Q (SPECIAL GENFUNS) S)
(JUMPE 5Q TAG4)
(MOVEI 1Q (QUOTE (GENERATED FUNCTIONS)) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
(MOVE 1Q (SPECIAL GENFUNS) S)
(CALL 1Q (E MAPPRINS) S)
(MOVEI 1Q (QUOTE 2Q))
(CALL 1Q (E LINEF) S)
TAG4 (MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -1Q P)
(CALL 2Q (E OUTC) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP TYPEFN SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL SHOWNAMES) S)
(JUMPE 5Q TAG2)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q (SPECIAL MSGCHAN) S)
(CALL 2Q (E OUTC) S)
(MOVEM 1Q 0Q P)
(CALL 0Q (E ATMARGIN) S)
(JUMPE 1Q TAG6)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
TAG6 (MOVE 1Q -1Q P)
(CALL 1Q (E PRINS) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q 0Q P)
(CALL 2Q (E OUTC) S)
TAG2 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP UNSPECIAL FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE MAKEUNSPECIAL) S)
(PUSH P D)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFLIST ((COMPACTION DOACT) (MACRO ACTONMACRO)) COMPEFFECT)
(DEFLIST ((DE DODE)
(DF DODF)
(DM DODM)
(DECLARE EVAL)
(DEFPROP COMPDEF)
(LAP FLUSHLAP)
(SPECIAL EVAL)
(UNSPECIAL EVAL)
(*SUBR EVAL)
(*ARRAY EVAL)
(*FSUBR EVAL)
(*LSUBR EVAL)
(*EXPR EVAL)
(*FEXPR EVAL)
(*LEXPR EVAL)
(NOCALL EVAL)
(CALL EVAL)
(NOCOMPILE IGNORE)
(GLOBALMACRO EVAL))
COMPACTION)
(DEFPROP ; IGNORE COMPACTION)
(DEFPROP ;; IGNORE COMPACTION)
(DEFLIST ((EXPR DEFEXPR)
(FEXPR DEFFEXPR)
(MACRO DEFMACRO)
(SPECIAL EVAL)
(DEFACTION EVAL)
(*EXPR DO*EXPR)
(*FEXPR DO*FEXPR)
(*LEXPR DO*LEXPR)
(*SUBR EVAL)
(*FSUBR EVAL)
(*LSUBR EVAL)
(NOCALL EVALFLUSH)
(CALL FLUSHEXPR))
DEFACTION)
(DEFV MSGCHAN NIL)
(DEFV LISTING NIL)
(DEFV INDEV DSK:)
(DEFV OUTDEV DSK:)
(DEFV OUTEXT LAP)
(DEFV SHOWNAMES T)
(LAP DOP1 SUBR)
(MOVEI 2Q (QUOTE P1) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(EXCH 1Q 0Q P)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP GENFUN SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -3Q P)
(JRST 0Q TAG1)
TAG5 (HLRZ@ 5Q -3Q P)
(CAIN 5Q (QUOTE LAMBDA) S)
(JRST 0Q TAG7)
(MOVEI 1Q (QUOTE (NOTFUNCTION-GENFUN)) S)
(CALL 17Q (E USERERR) S)
TAG7 (HRRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(MOVE 1Q -3Q P)
(MOVEM 5Q -1Q P)
(CALL 1Q (E CADDRLAM) S)
(MOVEM 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
(HRRZ@ 2Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG11)
(HLRZ@ 1Q -2Q P)
(JRST 0Q TAG1)
TAG11 (MOVEI 1Q (QUOTE SUBFUN) S)
(CALL 1Q (E NEXTSYM) S)
(PUSH P 1Q)
(CALL 0Q (E CURFUN) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E MAKESYM) S)
(MOVE 2Q (SPECIAL GENFUNS) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL GENFUNS) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SUBR) S)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE SUBR) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E COMPFUNC) S)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP MAPP1 SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE P1) S)
(PUSH P D)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP NEWNAME SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL RENAMELIST) S)
(CALL 2Q (E ASSOC) S)
(PUSH P 1Q)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP PASS1 SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL CURLOCVS) S)
(0Q 0Q (SPECIAL RENAMELIST) S)
(0Q 0Q (SPECIAL P1SCNT) S)
(0Q 0Q (SPECIAL INPROG) S)
(0Q 0Q (SPECIAL FOUNDFREE) S)
(PUSH P 1Q)
(MOVEI 5Q (QUOTE 1Q))
(MOVEM 5Q (SPECIAL P1CNT) S)
(MOVEM 1Q (SPECIAL DEBUGXPR) S)
(CLEARB 5Q (SPECIAL SPECVARS) S)
(MOVEM 5Q (SPECIAL LOCVARS) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E P1BIND) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E LENGTH) S)
(MOVE 2Q (SPECIAL NACS) S)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG6)
(MOVEI 1Q (QUOTE (EXTRAARGS-PASS1)) S)
(CALL 17Q (E USERERR) S)
TAG6 (HLRZ@ 1Q -2Q P)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 1Q (E CADDRLAM) S)
(CALL 1Q (E P1) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -2Q P)
(MOVE 5Q (SPECIAL FOUNDFREE) S)
(JUMPE 5Q TAG10)
(MOVE 1Q 5Q)
(CALL 1Q (E REVERSE) S)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(CALL 0Q (E CURFUN) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (UNDECLARED FREE VARIABLES IN)) S)
(CALL 2Q (E *APPEND) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E PRINTMSG) S)
TAG10 (MOVE 5Q (SPECIAL LOCVARS) S)
(CLEARM 4Q (SPECIAL LOCVARS) S)
(MOVEM 5Q 0Q P)
TAG1 (MOVE 5Q 0Q P)
(JUMPN 5Q TAG12)
(MOVE 1Q -2Q P)
(JRST 0Q TAG2)
TAG12 (HLRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E SPECIALP) S)
(JUMPN 1Q TAG14)
(MOVE 2Q (SPECIAL LOCVARS) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL LOCVARS) S)
(MOVEI 3Q (QUOTE LOCAL) S)
(MOVEI 2Q (QUOTE T) S)
(HLRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 3Q (E PUTPROP) S)
(JRST 0Q TAG13)
TAG14 (MOVE 2Q (SPECIAL SPECVARS) S)
(HLRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECVARS) S)
TAG13 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP PASS1FSUBR SUBR)
(POPJ P)
NIL
(LAP PASS1FUNVAR SUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E P1SUBRARGS) S)
(POP P 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP PASS1LSUBR SUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E MAPP1) S)
(POP P 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP PASS1MACRO SUBR)
(MOVEI 2Q (QUOTE MACRO) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(EXCH 1Q 0Q P)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E P1) S)
NIL
(LAP PASS1SUBR SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE *SUBR) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -1Q P)
(CALL 1Q (E LENGTH) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E *DIF) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q 0Q P)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG7)
(MOVE 1Q 0Q P)
(CALL 1Q (E LISTNILS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E *APPEND) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG6)
TAG7 (MOVE 1Q 0Q P)
(CALL 1Q (E MINUSP) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE (TOOMANYARGS-PASS1SUBR)) S)
(CALL 17Q (E USERERR) S)
TAG10
TAG6
TAG5 (HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E P1SUBRARGS) S)
(POP P 2Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP PASS1UNDEF SUBR)
(MOVE 2Q (SPECIAL UNDFUNS) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL UNDFUNS) S)
(POP P 1Q)
(JCALL 1Q (E PASS1SUBR) S)
NIL
(LAP P1 SUBR)
(PUSH P 1Q)
(MOVEM 1Q (SPECIAL DEBUGXPR) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG2)
(HLRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE LAMBDA) S)
(JRST 0Q TAG11)
(MOVE 1Q -1Q P)
(CALL 1Q (E P1LAM) S)
(JRST 0Q TAG3)
TAG11 (HLRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE LABEL) S)
(JRST 0Q TAG13)
(MOVE 1Q -1Q P)
(CALL 1Q (E P1LABEL) S)
(JRST 0Q TAG3)
TAG13 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E P1SUBRARGS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG3)
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E CONSTANTP) S)
(JUMPE 1Q TAG15)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG3)
TAG15 (MOVE 1Q -1Q P)
(CALL 1Q (E NEWNAME) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG17)
(CALL 1Q (E P1) S)
(JRST 0Q TAG3)
TAG17 (MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E SPECIALP) S)
(JUMPE 1Q TAG21)
(MOVE 2Q (SPECIAL SPECVARS) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECVARS) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG21 (MOVE 1Q -1Q P)
(CALL 1Q (E VARB) S)
(JUMPE 1Q TAG23)
(MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG23 (MOVE 2Q (SPECIAL P1CNT) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E PUTLOC) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG2 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E CONSTANTP) S)
(JUMPE 1Q TAG25)
(MOVEI 1Q (QUOTE (CONSTFUN-P1)) S)
(CALL 17Q (E USERERR) S)
TAG25 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E NEWNAME) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG27)
(HRRZ@ 2Q -1Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E P1) S)
(JRST 0Q TAG3)
TAG27 (MOVEI 2Q (QUOTE PASS1) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GETGET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG31)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG31 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E SPECIALP) S)
(JUMPN 1Q TAG34)
(MOVE 2Q (SPECIAL LOCVARS) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG33)
TAG34 (MOVEI 3Q (QUOTE *FUNVAR) S)
(MOVEI 2Q (QUOTE T) S)
(HLRZ@ 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E P1SUBRARGS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG3)
TAG33 (MOVE 1Q -1Q P)
(CALL 1Q (E P1ELSE) S)
TAG3 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP P1BIND SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG7)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(MOVEI 1Q (QUOTE (ATOMICVARLIST-P1BIND)) S)
(CALL 17Q (E USERERR) S)
TAG7
TAG1 (MOVE 5Q -2Q P)
(JUMPN 5Q TAG13)
(MOVE 1Q -1Q P)
(CALL 1Q (E REVERSE) S)
(JRST 0Q TAG3)
TAG13 (HLRZ@ 5Q -2Q P)
(MOVEM 5Q 0Q P)
(MOVE 1Q 5Q)
(CALL 1Q (E VARIABLEP) S)
(JUMPN 1Q TAG15)
(MOVEI 1Q (QUOTE (NOTVARIABLE-P1BIND)) S)
(CALL 17Q (E USERERR) S)
TAG15 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG17)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(CALL 0Q (E CURFUN) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (REPEATED VARIABLE IN)) S)
(CALL 2Q (E *APPEND) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E PRINTMSG) S)
TAG17 (MOVE 1Q 0Q P)
(CALL 1Q (E SPECIALP) S)
(JUMPE 1Q TAG21)
(MOVE 2Q (SPECIAL SPECVARS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECVARS) S)
(JRST 0Q TAG2)
TAG21 (MOVE 2Q (SPECIAL LOCVARS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG22)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(MOVE 2Q 1Q)
(EXCH 1Q 0Q P)
(CALL 2Q (E RENAM) S)
TAG22 (MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E PUTLOC) S)
(MOVE 2Q (SPECIAL CURLOCVS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL CURLOCVS) S)
TAG2 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(HRRZ@ 5Q -2Q P)
(MOVEM 1Q -1Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG3 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP P1BUG SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 5Q -1Q P)
(MOVEM 5Q 0Q P)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q 5Q)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG7)
(MOVE 5Q -2Q P)
(HRRM@ 5Q 0Q P)
TAG7 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP P1COND SUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL LOCVARS) S)
(PUSH P (SPECIAL P1CNT) S)
(MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q TAG4 0Q))
(MOVEI D (QUOTE MAPP1) S)
(PUSH P D)
(HRRZ@ 5Q -5Q P)
(PUSH P 5Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG4 (MOVEM 1Q 0Q P)
(MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 3Q -2Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E P1BUG) S)
(MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q -3Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E CONS) S)
NIL
(LAP P1CONS SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(CAIN 1Q (QUOTE 2Q))
(JRST 0Q TAG2)
(MOVEI 1Q (QUOTE (ARGNO-P1CONS)) S)
(CALL 17Q (E USERERR) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(JUMPN 1Q TAG3)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E P1) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NCONS) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG3 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E P1) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE CONS) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP P1ELSE SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL UNDFUNS) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL UNDFUNS) S)
(MOVEI 3Q (QUOTE *UNDEF) S)
(MOVEI 2Q (QUOTE T) S)
(HLRZ@ 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(HLRZ@ 1Q 0Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E P1SUBRARGS) S)
(POP P 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP P1EVAL SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E P1SUBRARGS) S)
(PUSH P 1Q)
(HRRZ@ 5Q 1Q)
(JUMPE 5Q TAG5)
(MOVEI 2Q (QUOTE EVAL) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG5 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE *EVAL) S)
(CALL 2Q (E CONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP P1FUNCTION SUBR)
(PUSH P 1Q)
(HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE FUNCTION) S)
(JRST 0Q TAG2)
(MOVEI 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 5Q)
TAG1 (PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E GENFUN) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP P1GO SUBR)
(PUSH P 1Q)
(MOVE 5Q (SPECIAL INPROG) S)
(JUMPN 5Q TAG5)
(MOVEI 1Q (QUOTE (NOTINPROG-P1GO)) S)
(CALL 17Q (E USERERR) S)
TAG5 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG7 (HLRZ@ 1Q 0Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E P1) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP P1LABEL SUBR)
(PUSH P 1Q)
(MOVEI 3Q (QUOTE T) S)
(MOVEI 2Q (QUOTE FUNVAR) S)
(CALL 1Q (E CADAR) S)
(CALL 3Q (E INITPROP) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE FUNCTION) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E P1) S)
(MOVEI 2Q (QUOTE FUNVAR) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E DELETEPROP) S)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(HLRZ@ 2Q -2Q P)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q -2Q P)
(PUSH P 1Q)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE RETURN) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROG) S)
(CALL 2Q (E XCONS) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 1Q (E P1) S)
NIL
(LAP P1LAM SUBR)
(MOVE 5Q (SPECIAL RENAMELIST) S)
(MOVE 4Q (SPECIAL CURLOCVS) S)
(JSP 6Q SPECBIND)
(0Q 5Q (SPECIAL RENAMELIST) S)
(0Q 4Q (SPECIAL CURLOCVS) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL INPROG) S)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E P1SUBRARGS) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E P1BIND) S)
(PUSH P 1Q)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E CADDRLAM) S)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE LAMBDA) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E CONS) S)
(PUSHJ P SPECSTR)
(SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP P1PROG SUBR)
(MOVE 5Q (SPECIAL RENAMELIST) S)
(MOVE 4Q (SPECIAL CURLOCVS) S)
(JSP 6Q SPECBIND)
(0Q 5Q (SPECIAL RENAMELIST) S)
(0Q 4Q (SPECIAL CURLOCVS) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL P1SCNT) S)
(0Q 0Q (SPECIAL INPROG) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 5Q 1Q)
(JUMPN 5Q TAG12)
(MOVEI 1Q (QUOTE (PROGTOOSHORT-P1PROG)) S)
(CALL 17Q (E USERERR) S)
TAG12 (MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL INPROG) S)
(HRRZ@ 5Q -4Q P)
(HLRZ@ 1Q 5Q)
(MOVEM 5Q -4Q P)
(CALL 1Q (E P1BIND) S)
(MOVE 5Q (SPECIAL LOCVARS) S)
(MOVEM 1Q -3Q P)
(MOVE 1Q (SPECIAL P1CNT) S)
(MOVEM 5Q -2Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVEM 1Q (SPECIAL P1SCNT) S)
TAG1 (HRRZ@ 5Q -4Q P)
(MOVEM 5Q -4Q P)
(JUMPE 5Q TAG2)
(MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q -4Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG17)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(CALL 0Q (E CURFUN) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (MULTIPLY DEFINED TAG IN)) S)
(CALL 2Q (E *APPEND) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E PRINTMSG) S)
TAG17 (HLRZ@ 1Q -4Q P)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -1Q P)
(MOVEM 1Q 0Q P)
(HLRZ@ 1Q -4Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG14)
TAG15 (HLRZ@ 1Q -4Q P)
(CALL 1Q (E P1) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -1Q P)
TAG14 (JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 3Q -2Q P)
(MOVE 2Q 1Q)
(MOVE 1Q (SPECIAL P1SCNT) S)
(CALL 3Q (E P1BUG) S)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVEI 1Q (QUOTE LOCVARS) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q -2Q P)
TAG3 (HRRZ@ 5Q -2Q P)
(JUMPE 5Q TAG5)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CAAR) S)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG23)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CDAR) S)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG23)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CAAR) S)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(CALL 0Q (E CURFUN) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (UNUSED PROG VARIABLE IN)) S)
(CALL 2Q (E *APPEND) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E PRINTMSG) S)
(MOVE 2Q (SPECIAL SPECVARS) S)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CAAR) S)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECVARS) S)
(MOVE 2Q (SPECIAL SPECIALS) S)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CAAR) S)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECIALS) S)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CAAR) S)
(CALL 1Q (E MAKESPECIAL) S)
TAG23
TAG4 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG3)
TAG5 (MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E REVERSE) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROG) S)
(CALL 2Q (E XCONS) S)
(PUSHJ P SPECSTR)
(SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP P1RETURN SUBR)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL INPROG) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (NOTINPROG-P1RETURN)) S)
(CALL 17Q (E USERERR) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 0Q P)
(JUMPE 1Q TAG4)
(HLRZ@ 1Q 1Q)
TAG4 (CALL 1Q (E P1) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE RETURN) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP P1SETQ SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E CADR) S)
(CALL 1Q (E VARIABLEP) S)
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE (NOTVARIABLE-P1SETQ)) S)
(CALL 17Q (E USERERR) S)
TAG5 (HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NEWNAME) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG7)
(MOVE 5Q 1Q)
(JRST 0Q TAG6)
TAG7 (HRRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
TAG6 (MOVE 1Q 5Q)
(MOVEM 5Q 0Q P)
(CALL 1Q (E VARB) S)
(HRRZ@ 1Q -3Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E P1) S)
(MOVEM 1Q -2Q P)
(MOVE 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P1CNT) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP P1STORE SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E P1) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q -2Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP P1SUBRARGS SUBR)
(PUSH P 1Q)
(CALL 1Q (E LENGTH) S)
(MOVE 2Q (SPECIAL NACS) S)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE (EXTRAARGS-P1SUBRARGS)) S)
(CALL 17Q (E USERERR) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E MAPP1) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PUTLOC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 2Q (SPECIAL LOCVARS) S)
(CALL 2Q (E ASSOC) S)
(PUSH P 1Q)
(JUMPE 1Q TAG5)
(MOVE 5Q -1Q P)
(HRRM@ 5Q 1Q)
(JRST 0Q TAG1)
TAG5 (MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL LOCVARS) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL LOCVARS) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP RENAM SUBR)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL RENAMELIST) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL RENAMELIST) S)
(POPJ P)
NIL
(LAP SPECIALP SUBR)
(MOVEI 2Q (QUOTE SPECIAL) S)
(JCALL 2Q (E HASPROP) S)
NIL
(LAP VARB SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL CURLOCVS) S)
(CALL 2Q (E MEMBER) S)
(JUMPN 1Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E SPECIALP) S)
(JUMPN 1Q TAG1)
(MOVE 2Q (SPECIAL FOUNDFREE) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL FOUNDFREE) S)
(MOVE 2Q (SPECIAL SPECIALS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL SPECIALS) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E MAKESPECIAL) S)
TAG1 (MOVE 2Q (SPECIAL SPECVARS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECVARS) S)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP VARIABLEP SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(CALL 1Q (E CONSTANTP) S)
(JUMPE 1Q TAG3)
(TDZA 1Q 1Q)
TAG3 (MOVEI 1Q (QUOTE T) S)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFLIST ((EXPR PASS1SUBR)
(*EXPR PASS1SUBR)
(SUBR PASS1SUBR)
(*SUBR PASS1SUBR)
(*UNDEF PASS1UNDEF)
(*LEXPR PASS1LSUBR)
(LSUBR PASS1LSUBR)
(*LSUBR PASS1LSUBR)
(FEXPR PASS1FSUBR)
(*FEXPR PASS1FSUBR)
(FSUBR PASS1FSUBR)
(*FSUBR PASS1FSUBR)
(P1 DOP1)
(FUNVAR PASS1FUNVAR)
(MACRO PASS1MACRO))
PASS1)
(DEFLIST ((COND P1COND)
(GO P1GO)
(PROG P1PROG)
(EVAL P1EVAL)
(SETQ P1SETQ)
(STORE P1STORE)
(CONS P1CONS)
(*FUNCTION P1FUNCTION)
(FUNCTION P1FUNCTION)
(RETURN P1RETURN))
P1)
(DEFV SPECIALS NIL)
(DEFV PDL NIL)
(DEFV ACS NIL)
(DEFV LDLST NIL)
(DEFV SPLDLST NIL)
(DEFV CCLST NIL)
(DEFPROP INMACRO PASS1INMACRO PASS1)
(LAP PASS1INMACRO SUBR)
(MOVEI 2Q (QUOTE INMACRO) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(EXCH 1Q 0Q P)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E P1) S)
NIL
(LAP APPEND INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG1)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG2)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 1Q)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *APPEND) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP LIST INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG1)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG2)
(HRRZ@ 2Q 0Q P)
(MOVEI 1Q (QUOTE NCONS) S)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 1Q)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE CONS) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP NOT INMACRO)
(HRRZ@ 2Q 1Q)
(MOVEI 1Q (QUOTE NULL) S)
(JCALL 2Q (E CONS) S)
NIL
(LAP =0 INMACRO)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE EQ) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP ACEFFECTS SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE ACS) S)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG2)
(CALL 1Q (E CADR) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL ALLACS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ACNUMP SUBR)
(PUSH P 1Q)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG2)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG4)
(MOVE 1Q (SPECIAL NACS) S)
(CALL 1Q (E ADD1) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E *GREAT) S)
TAG4
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP BINDVARS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -4Q P)
(JUMPN 5Q TAG13)
(MOVE 1Q -1Q P)
(JRST 0Q TAG7)
TAG13 (HLRZ@ 5Q -4Q P)
(MOVEM 5Q 0Q P)
(MOVE 1Q 5Q)
(CALL 1Q (E SPECVARP) S)
(JUMPN 1Q TAG4)
(MOVE 2Q (SPECIAL LOCVARS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ASSOC) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (FUNNYVAR-BINDVARS)) S)
(CALL 17Q (E COMPERR) S)
(JRST 0Q TAG3)
TAG2 (MOVE 5Q -3Q P)
(JUMPE 5Q TAG17)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E SETSLOT) S)
TAG17
TAG3 (MOVE 1Q -2Q P)
(CALL 1Q (E ADD1) S)
(HRRZ@ 5Q -4Q P)
(MOVEM 1Q -2Q P)
(MOVEM 5Q -4Q P)
(JRST 0Q TAG1)
TAG4 (MOVE 5Q (SPECIAL PRGSPFLG) S)
(JUMPE 5Q TAG6)
TAG5 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG22)
(MOVE 1Q -2Q P)
(JRST 0Q TAG21)
TAG22 (MOVEI 1Q (QUOTE 0Q))
TAG21 (PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE S) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(JRST 0Q TAG2)
TAG6 (MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q -1Q P)
(MOVEM 5Q (SPECIAL PRGSPFLG) S)
(MOVEI 1Q (QUOTE (JSP 6Q SPECBIND)) S)
(CALL 1Q (E OUTSTAT) S)
(JRST 0Q TAG5)
TAG7 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP BOOLCOND SUBR)
(MOVE 5Q 3Q)
(PUSH P 3Q)
(MOVEI 3Q (QUOTE NIL))
(HRRZ@ 1Q 1Q)
(CALL 5Q (E P2COND1) S)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(POP P 1Q)
(JCALL 1Q (E RSLSET) S)
NIL
(LAP BOOLEQ SUBR)
(PUSH P 3Q)
(HRRZ@ 1Q 1Q)
(CALL 4Q (E BOOLEQ1) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTJRST) S)
(POP P 1Q)
(JCALL 1Q (E RSLSET) S)
NIL
(LAP BOOLEQ1 SUBR)
(PUSH P 1Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E LENGTH) S)
(CAIN 1Q (QUOTE 2Q))
(JRST 0Q TAG5)
(MOVEI 1Q (QUOTE (ARGNOERR-BOOLEQ1)) S)
(CALL 17Q (E USERERR) S)
TAG5 (HLRZ@ 1Q -10Q P)
(PUSH P 1Q)
(CALL 0Q (E FREEAC) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E COMP) S)
(MOVEM 1Q 0Q P)
(HRRZ@ 1Q -10Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 0Q (E FREEAC) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E COMP) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -2Q P)
(MOVE 1Q -7Q P)
(CALL 1Q (E RST) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E ACNUMP) S)
(JUMPE 1Q TAG7)
(MOVE 5Q -2Q P)
(MOVE 1Q -1Q P)
(MOVEM 5Q -4Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -5Q P)
(JRST 0Q TAG6)
TAG7 (MOVE 1Q -3Q P)
(CALL 1Q (E ACNUMP) S)
(JUMPE 1Q TAG10)
(MOVE 5Q -3Q P)
(MOVE 1Q 0Q P)
(MOVEM 5Q -4Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -5Q P)
(JRST 0Q TAG6)
TAG10 (CALL 0Q (E FREEAC) S)
(MOVE 2Q 0Q P)
(MOVEM 1Q -4Q P)
(CALL 2Q (E LOADARG) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -5Q P)
TAG6 (MOVE 1Q 0Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 1Q -4Q P)
(CALL 1Q (E SLOTCONT) S)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG13)
(MOVE 1Q -5Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG13)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -5Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG13)
(MOVE 1Q -5Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVEM 1Q 0Q P)
(CALL 0Q (E FREEAC) S)
(MOVE 2Q 0Q P)
(MOVEM 1Q -5Q P)
(CALL 2Q (E LOADARG) S)
TAG13 (CALL 0Q (E SAVEACS) S)
(MOVE 1Q -6Q P)
(JUMPE 1Q TAG21)
(MOVEI 1Q (QUOTE CAMN) S)
(JRST 0Q TAG20)
TAG21 (MOVEI 1Q (QUOTE CAME) S)
TAG20 (MOVE 3Q -5Q P)
(MOVE 2Q -4Q P)
(CALL 3Q (E OUT1) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 11Q 0Q 11Q 0Q))
(POPJ P)
NIL
(LAP BOOLEXPR SUBR)
(JSP 6Q SPECBIND)
(0Q 5Q (SPECIAL MINDEPTH) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(MOVEI 2Q (QUOTE BOOL) S)
(HLRZ@ 1Q -4Q P)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(CALL 1Q (E CADR) S)
(MOVE 4Q -1Q P)
(MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(PUSH P 1Q)
(MOVE 1Q -5Q P)
(CALLF@ 4Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG7
TAG1 (MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E COMP) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E PUTINAC) S)
(MOVE 3Q -2Q P)
(MOVE 2Q 1Q)
(MOVEM 1Q -4Q P)
(MOVE 1Q -1Q P)
(CALL 3Q (E OUTCJMP) S)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG11)
(MOVE 1Q -2Q P)
(CALL 1Q (E RSLSET) S)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E SETSLOT) S)
(JRST 0Q TAG10)
TAG11 (MOVE 1Q -4Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E RSLSET) S)
(MOVE 2Q -1Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E SETSLOT) S)
TAG10 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP BOOLNULL SUBR)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPE 4Q TAG1)
(TDZA 4Q 4Q)
TAG1 (MOVEI 4Q (QUOTE T) S)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(POP P 3Q)
(POP P 2Q)
(POP P 1Q)
(JCALL 5Q (E BOOLEXPR) S)
NIL
(LAP BOOLQUOTE SUBR)
(PUSH P 1Q)
(PUSH P 3Q)
(PUSH P 4Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(JUMPN 5Q TAG3)
(TDZA 5Q 5Q)
TAG3 (MOVEI 5Q (QUOTE T) S)
(CAME 5Q 0Q P)
(JRST 0Q TAG2)
(MOVE 1Q -1Q P)
(CALL 1Q (E OUTJRST) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E RSLSET) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP BOOLVALUE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPN 2Q TAG5)
(EXCH 3Q 1Q)
(MOVE 2Q 3Q)
(MOVEI 1Q (QUOTE TDZA) S)
(CALL 3Q (E OUT1) S)
TAG5 (MOVE 1Q 0Q P)
(CALL 1Q (E OUTENDTAG) S)
(MOVE 5Q -1Q P)
(JUMPN 5Q TAG7)
(MOVEI 3Q (QUOTE (QUOTE T)) S)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE MOVEI) S)
(CALL 3Q (E OUT1) S)
TAG7 (MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 2Q (E MARKVAL) S)
NIL
(LAP CALLFSUBR SUBR)
(PUSH P 1Q)
(PUSH P 3Q)
(HLRZ@ 5Q 1Q)
(HRRZ@ 4Q 1Q)
(PUSH P 4Q)
(PUSH P 5Q)
(CALL 0Q (E CLEAR2BOTH) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q (SPECIAL FARGAC) S)
(CALL 2Q (E LOADARG) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E PROTECTACS) S)
(MOVE 2Q -2Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
(MOVE 2Q 0Q P)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 17Q))
(CALL 2Q (E OUTCALL) S)
(MOVE 1Q 0Q P)
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP CALLFUNARGS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HLRZ@ 5Q 1Q)
(HRRZ@ 4Q 1Q)
(MOVE 1Q 5Q)
(PUSH P 4Q)
(PUSH P 5Q)
(CALL 2Q (E COMP) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E COMPARGS) S)
(PUSH P 1Q)
(CALL 1Q (E CLRCCLST) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E LOADSUBRARGS) S)
(CALL 0Q (E CLEAR2BOTH) S)
(CALL 0Q (E CLEARACS) S)
(MOVE 2Q -4Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 1Q (E LOC) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E OUTCALLF) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 1Q 0Q P)
(SUB P (C 10Q 0Q 10Q 0Q))
(POPJ P)
NIL
(LAP CALLLSUBR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HLRZ@ 5Q 1Q)
(HRRZ@ 4Q 1Q)
(PUSH P 4Q)
(PUSH P 5Q)
(CALL 0Q (E CLEAR1) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE 0Q))
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 4Q (E GENCONST) S)
(CALL 1Q (E OUTPUSH) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -7Q P)
(JUMPE 5Q TAG2)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(MOVE 2Q -11Q P)
(MOVEM 1Q 0Q P)
(HLRZ@ 1Q -7Q P)
(CALL 2Q (E COMP) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E RESTOR) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -2Q P)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E OUTPUSH) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E REMOVL) S)
(HRRZ@ 5Q -7Q P)
(MOVEM 5Q -7Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q (SPECIAL PDLDEPTH) S)
(MOVEM 5Q -2Q P)
(CALL 0Q (E SAVEACS) S)
(MOVE 5Q (SPECIAL PDLDEPTH) S)
(CAMN 5Q -2Q P)
(JRST 0Q TAG12)
(MOVEI 1Q (QUOTE (PDLTOOLONG-LSUBRCALL)) S)
(CALL 17Q (E COMPERR) S)
TAG12 (MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE 6Q))
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE MOVNI) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
TAG3 (CALL 0Q (E SLOTPOP) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG4)
(MOVE 1Q -5Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -5Q P)
(JRST 0Q TAG3)
TAG4 (CALL 0Q (E CLEAR2BOTH) S)
(CALL 0Q (E CLEARACS) S)
(MOVE 2Q -10Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
(MOVE 2Q -6Q P)
(MOVEM 1Q -3Q P)
(MOVEI 1Q (QUOTE 16Q))
(CALL 2Q (E OUTJCALL) S)
(MOVE 1Q -4Q P)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q -3Q P)
(SUB P (C 13Q 0Q 13Q 0Q))
(POPJ P)
NIL
(LAP CALLSUBR SUBR)
(PUSH P 1Q)
(PUSH P 3Q)
(HLRZ@ 5Q 1Q)
(HRRZ@ 4Q 1Q)
(MOVE 1Q 4Q)
(PUSH P 4Q)
(PUSH P 5Q)
(CALL 1Q (E COMPARGS) S)
(PUSH P 1Q)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE COMMU) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(MOVE 5Q -2Q P)
(CAIE 5Q (QUOTE 2Q))
(JRST 0Q TAG5)
(MOVE 2Q (SPECIAL VALUEAC) S)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E ILOC) S)
(CAME 1Q (SPECIAL VALUEAC) S)
(JRST 0Q TAG5)
(MOVE 1Q -3Q P)
(CALL 1Q (E REVERSE) S)
(HRRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(MOVEM 1Q -3Q P)
(MOVEM 5Q -4Q P)
TAG5 (MOVE 1Q -4Q P)
(CALL 1Q (E SIDEEFFECTS) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG13)
(MOVE 1Q -3Q P)
(CALL 1Q (E CLRCCLST) S)
TAG13 (MOVE 1Q -3Q P)
(CALL 1Q (E LOADSUBRARGS) S)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG15)
(CALL 0Q (E CLEAR2BOTH) S)
TAG15 (MOVE 1Q -4Q P)
(CALL 1Q (E PROTECTACS) S)
(MOVE 2Q -6Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
(MOVE 2Q -4Q P)
(MOVEM 1Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E OUTCALL) S)
(MOVE 1Q -1Q P)
(SUB P (C 10Q 0Q 10Q 0Q))
(POPJ P)
NIL
(LAP CLEAR1 SUBR)
(CALL 0Q (E CLEAR1BOTH) S)
(CALL 0Q (E SAVEACS) S)
(JCALL 0Q (E CLRPVARS) S)
NIL
(LAP CLEAR1BOTH SUBR)
(CALL 0Q (E CLRCCLST1) S)
(CALL 0Q (E CLRSPLD) S)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CLEAR2BOTH SUBR)
(CALL 0Q (E CLRCCLST2) S)
(CALL 0Q (E CLRSPLD) S)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CLEARAC SUBR)
(PUSH P 1Q)
(CALL 1Q (E CPUSH) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q 0Q P)
(CALL 2Q (E SETSLOT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CLEARITALL SUBR)
(CALL 0Q (E CLEAR2BOTH) S)
(CALL 0Q (E CLEARACS) S)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CLEARACS SUBR)
(PUSH P (SPECIAL NACS) S)
TAG1 (MOVE 1Q 0Q P)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E CLEARAC) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CLRCCLST SUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL CCLST) S)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG4)
(MOVE 2Q -1Q P)
(HLRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(JUMPN 1Q TAG2)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E CSFUN) S)
TAG2 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP CLRCCLST1 SUBR)
(PUSH P (SPECIAL CCLST) S)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E CSFUN) S)
(HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CLRCCLST2 SUBR)
TAG1 (MOVE 5Q (SPECIAL CCLST) S)
(JUMPE 5Q TAG3)
(HLRZ@ 1Q (SPECIAL CCLST) S)
(CALL 1Q (E CSFUN) S)
(HRRZ@ 5Q (SPECIAL CCLST) S)
(MOVEM 5Q (SPECIAL CCLST) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CLRPVARS SUBR)
(MOVE 5Q (SPECIAL PROGSW) S)
(JUMPE 5Q TAG3)
(CLEARM 5Q (SPECIAL PROGSW) S)
TAG1 (MOVE 5Q (SPECIAL PROGVARS) S)
(JUMPN 5Q TAG7)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(MOVEM 1Q (SPECIAL PRSSL) S)
(MOVE 5Q (SPECIAL PDLDEPTH) S)
(MOVEM 5Q (SPECIAL MINDEPTH) S)
(JRST 0Q TAG3)
TAG7 (HLRZ@ 1Q (SPECIAL PROGVARS) S)
(CALL 1Q (E INITZ) S)
(HRRZ@ 5Q (SPECIAL PROGVARS) S)
(MOVEM 5Q (SPECIAL PROGVARS) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CLRSPLD SUBR)
TAG1 (MOVE 5Q (SPECIAL SPLDLST) S)
(JUMPE 5Q TAG3)
(HLRZ@ 1Q (SPECIAL SPLDLST) S)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E CLRSPVAR) S)
(HRRZ@ 5Q (SPECIAL SPLDLST) S)
(MOVEM 5Q (SPECIAL SPLDLST) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CLRSPVAR SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL P2CNT) S)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL VALUEAC) S)
(PUSH P 1Q)
(CALL 2Q (E ILOC) S)
(PUSH P 1Q)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG5)
(MOVE 1Q -1Q P)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTPUSH) S)
(JRST 0Q TAG4)
TAG5 (MOVE 1Q 0Q P)
(CALL 1Q (E ACNUMP) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -1Q P)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTPUSH) S)
TAG6
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP COMP SUBR)
(MOVEI 3Q (QUOTE NIL))
(JCALL 3Q (E COMPEXPR) S)
NIL
(LAP COMPARGS SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -2Q P)
(JUMPN 5Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVE 2Q 1Q)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E COMP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(HRRZ@ 5Q -2Q P)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP COMPE SUBR)
(PUSH P 1Q)
(CALL 0Q (E FREEAC) S)
(MOVEI 3Q (QUOTE T) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 3Q (E COMPEXPR) S)
(JCALL 1Q (E REMOVL) S)
NIL
(LAP COMPEXPR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVEM 1Q (SPECIAL DEBUGXPR) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG2)
(HLRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE LAMBDA) S)
(JRST 0Q TAG11)
(MOVE 1Q -3Q P)
(CALL 3Q (E INTERNALLAMBDA) S)
(JRST 0Q TAG3)
TAG11 (MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E CALLFUNARGS) S)
(JRST 0Q TAG3)
TAG1 (MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(MOVE 2Q (SPECIAL PROGVARS) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG13)
(MOVEI 1Q (QUOTE (QUOTE NIL)) S)
(JRST 0Q TAG3)
TAG13 (MOVE 2Q (SPECIAL P2CNT) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q -3Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG15)
(MOVE 2Q (SPECIAL SPLDLST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL SPLDLST) S)
TAG15 (MOVE 2Q (SPECIAL LDLST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL LDLST) S)
(MOVE 1Q 0Q P)
(JRST 0Q TAG3)
TAG2 (MOVEI 2Q (QUOTE PASS2) S)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E GETGET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG17)
(CALL 1Q (E CADR) S)
(MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(CALLF@ 3Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG17 (HLRZ@ 1Q -3Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPN 1Q TAG22)
(MOVE 2Q (SPECIAL LOCVARS) S)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG21)
TAG22 (MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E CALLFUNARGS) S)
(JRST 0Q TAG3)
TAG21 (MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E P2ELSE) S)
TAG3 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP COPT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVE 1Q 3Q)
(CALL 2Q (E ILOC) S)
(PUSH P (SPECIAL CCLST) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAME 5Q -5Q P)
(JRST 0Q TAG6)
(MOVE 2Q -4Q P)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E CDDR) S)
(CALL 2Q (E ILOC) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -4Q P)
(MOVEM 1Q 0Q P)
(CALL 2Q (E ILOC) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP CPUSH SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E SLOTCONT) S)
(MOVEM 1Q -2Q P)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG10)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG6)
TAG1 (MOVEI 5Q (QUOTE 0Q))
(MOVE 4Q (SPECIAL PDL) S)
(MOVEM 5Q -1Q P)
(MOVEM 4Q 0Q P)
TAG2 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG5)
(HLRZ@ 2Q 5Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG10)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E DVP) S)
(JUMPN 1Q TAG3)
(HLRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(HLRZ@ 5Q -3Q P)
(POP P 4Q)
(CAMN 5Q 4Q)
(JRST 0Q TAG4)
(MOVE 5Q -1Q P)
(MOVEM 5Q -3Q P)
TAG3 (HRRZ@ 5Q 0Q P)
(MOVE 1Q -1Q P)
(MOVEM 5Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG2)
TAG4 (MOVE 2Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E SETSLOT) S)
(HRRZ@ 5Q -2Q P)
(JUMPN 5Q TAG17)
(MOVEI 2Q (QUOTE DUP) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -4Q P)
(CALL 2Q (E SETSLOT) S)
TAG17 (MOVE 2Q -1Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E OUTMOVEM) S)
(JRST 0Q TAG10)
TAG5 (MOVE 5Q -3Q P)
(JUMPE 5Q TAG21)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG4)
TAG21
TAG6 (MOVE 5Q (SPECIAL PROGSW) S)
(JUMPE 5Q TAG23)
(MOVE 2Q (SPECIAL LOCVARS) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E ASSOC) S)
(JUMPN 1Q TAG23)
(MOVE 5Q (SPECIAL PDLDEPTH) S)
(MOVEM 5Q 0Q P)
(CALL 0Q (E CLRPVARS) S)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG27)
(MOVE 2Q (SPECIAL PDLDEPTH) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E *DIF) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E *PLUS) S)
(MOVEM 1Q -4Q P)
TAG27
TAG23 (HRRZ@ 5Q -2Q P)
(JUMPN 5Q TAG31)
(MOVEI 2Q (QUOTE DUP) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -4Q P)
(CALL 2Q (E SETSLOT) S)
TAG31 (MOVE 1Q -2Q P)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q -4Q P)
(CALL 1Q (E OUTPUSH) S)
TAG10 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP CSFUN SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q (SPECIAL LDLST) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(CALL 1Q (E LOC) S)
TAG5 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP CSTEP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVE 1Q 3Q)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG1)
TAG5 (CALL 3Q (E COPT) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG1)
TAG6 (MOVEI 2Q (QUOTE CARCDR) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 3Q (E CSTEP) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP DOP2 SUBR)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE P2) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(EXCH 2Q -1Q P)
(EXCH 1Q 0Q P)
(CALLF@ 3Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP DVP SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG4)
(HLRZ@ 5Q 1Q)
(CAIN 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG4)
(HRRZ@ 5Q 1Q)
(CAIN 5Q (QUOTE DUP) S)
(JRST 0Q TAG4)
(HRRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE TAKEN) S)
(JRST 0Q TAG12)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG3)
TAG12 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG15)
(HRRZ@ 5Q -2Q P)
(JUMPE 5Q TAG4)
TAG15 (MOVE 2Q (SPECIAL LOCVARS) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG17)
(HRRZ@ 5Q -2Q P)
(JUMPN 5Q TAG17)
(HRRZ@ 2Q 1Q)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG17)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG3)
TAG17 (MOVE 5Q (SPECIAL LDLST) S)
(MOVEM 5Q -1Q P)
TAG1 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG25)
(MOVE 5Q (SPECIAL VARLIST) S)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG2)
TAG25 (HLRZ@ 5Q -2Q P)
(PUSH P 5Q)
(HLRZ@ 5Q -2Q P)
(HLRZ@ 5Q 5Q)
(POP P 4Q)
(CAME 5Q 4Q)
(JRST 0Q TAG27)
(MOVE 1Q -2Q P)
(CALL 1Q (E LOC) S)
(PUSH P 1Q)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E LOC) S)
(POP P 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG27)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG3)
TAG27 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG4)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(HLRZ@ 5Q -3Q P)
(POP P 4Q)
(CAME 5Q 4Q)
(JRST 0Q TAG33)
(HRRZ@ 2Q -2Q P)
(HLRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG33)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG3)
TAG33 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG2)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG3 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP EQUIVTAG SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q (SPECIAL GOLIST) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG5 (MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(CALL 0Q (E CURFUN) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (UNDEFINED TAG IN)) S)
(CALL 2Q (E *APPEND) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E PRINTMSG) S)
(MOVE 1Q (SPECIAL EXIT) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP EXITBUM SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL LASTOUT) S)
(JUMPE 5Q TAG4)
(MOVEI 2Q (QUOTE ((CALL JCALL) (PUSHJ JRST))) S)
(HLRZ@ 1Q 5Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(HLRZ@ 5Q 5Q)
(CLEARM 4Q (SPECIAL LASTOUT) S)
(MOVEM 5Q -1Q P)
(CALL 0Q (E KILLPDL) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E OUTSTAT) S)
(MOVE 5Q -2Q P)
(JUMPN 5Q TAG7)
(HLRZ@ 5Q (SPECIAL LASTOUT) S)
(CLEARM 4Q (SPECIAL LASTOUT) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(HRRZ@ 3Q 5Q)
(HLRZ@ 3Q 3Q)
(MOVEI 2Q (QUOTE P) S)
(MOVEM 1Q -1Q P)
(MOVEI 1Q (QUOTE 0Q))
(PUSH P 5Q)
(CALL 3Q (E SUBST) S)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(POP P -2Q P)
(JRST 0Q TAG2)
TAG7
TAG5
TAG4 (CALL 0Q (E KILLPDL) S)
(MOVE 5Q -2Q P)
(JUMPE 5Q TAG11)
(MOVEI 1Q (QUOTE (JRST 0Q SPECSTR)) S)
(CALL 1Q (E OUTSTAT) S)
(JRST 0Q TAG10)
TAG11 (MOVEI 1Q (QUOTE (POPJ P)) S)
(CALL 1Q (E OUTSTAT) S)
TAG10
TAG2 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP FREEAC SUBR)
(MOVE 1Q (SPECIAL NACS) S)
(JCALL 1Q (E FREEAC1) S)
NIL
(LAP FREEAC1 SUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL NACS) S)
TAG1 (MOVE 5Q 0Q P)
(CAIE 5Q (QUOTE 0Q))
(JRST 0Q TAG6)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG3)
(MOVE 1Q 5Q)
(CALL 1Q (E CPUSH) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 2Q 0Q P)
(MOVE 1Q (SPECIAL ACS) S)
(CALL 2Q (E NTH) S)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E DVP) S)
(JUMPN 1Q TAG12)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG12 (MOVE 1Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP FINDFREEAC SUBR)
(MOVEI 1Q (QUOTE NIL))
(JCALL 1Q (E FREEAC1) S)
NIL
(LAP FREEZE SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL ACS) S)
(CALL 2Q (E FREEZE1) S)
(MOVE 2Q (SPECIAL PDL) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E FREEZE1) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP FREEZE1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAME 5Q -1Q P)
(JRST 0Q TAG6)
(HLRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(JUMPE 5Q TAG11)
(CAIE 5Q (QUOTE DUP) S)
(JRST 0Q TAG10)
TAG11 (MOVE 2Q (SPECIAL P2CNT) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(HRLM@ 1Q 0Q P)
TAG10
TAG6 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP GENCONST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(MOVE 1Q 3Q)
(CALL 1Q (E NEEDS) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE S) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE D) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE MOVEI) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 5Q -3Q P)
(CAIE 5Q (QUOTE 0Q))
(JRST 0Q TAG5)
(MOVE 5Q -2Q P)
(CAIE 5Q (QUOTE 0Q))
(JRST 0Q TAG5)
(MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE 0Q))
(JRST 0Q TAG4)
TAG5 (MOVEI 1Q (QUOTE (BAD-S-REG-GENCONST)) S)
(CALL 17Q (E COMPERR) S)
TAG4 (MOVEI 1Q (QUOTE D) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE C) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP GETSLOT SUBR)
(PUSH P 1Q)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (NOTSLOT-GETSLOT)) S)
(CALL 17Q (E COMPERR) S)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q (SPECIAL NACS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(CALL 1Q (E PRINTMSG) S)
(MOVEI 1Q (QUOTE (NOTAC-GETSLOT)) S)
(CALL 17Q (E COMPERR) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG4)
(MOVE 1Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVE 2Q (SPECIAL ACS) S)
(CALL 2Q (E NTHCDR) S)
(JRST 0Q TAG1)
TAG4 (MOVE 1Q 0Q P)
(CALL 1Q (E ABS) S)
(MOVE 2Q (SPECIAL PDLDEPTH) S)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG5)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(CALL 1Q (E PRINTMSG) S)
(MOVEI 1Q (QUOTE (NOTONPDL-GETSLOT)) S)
(CALL 17Q (E COMPERR) S)
(JRST 0Q TAG1)
TAG5 (MOVE 1Q 0Q P)
(CALL 1Q (E MINUS) S)
(MOVE 2Q (SPECIAL PDL) S)
(CALL 2Q (E NTHCDR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ILOC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 2Q TAG1)
(MOVE 1Q 2Q)
(CALL 1Q (E SLOTCONT) S)
(MOVEM 1Q -4Q P)
(HRRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE DUP) S)
(JRST 0Q TAG14)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -4Q P)
TAG14 (MOVE 2Q -4Q P)
(MOVE 1Q -10Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG16)
(MOVE 1Q -7Q P)
(JRST 0Q TAG7)
TAG16
TAG1 (HLRZ@ 5Q -10Q P)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG20)
(MOVE 1Q -10Q P)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG7)
TAG20 (CALL 0Q (E SLOTLIST) S)
(MOVEI 5Q (QUOTE 1Q))
(MOVEM 1Q -3Q P)
(MOVE 1Q (SPECIAL P2CNT) S)
(MOVEM 5Q 0Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q -2Q P)
(HRRZ@ 1Q -10Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG22)
(HRRZ@ 5Q -10Q P)
(JRST 0Q TAG21)
TAG22 (MOVE 5Q (SPECIAL P2CNT) S)
TAG21 (MOVEM 5Q -6Q P)
TAG2 (MOVE 5Q -3Q P)
(JUMPE 5Q TAG4)
(HLRZ@ 5Q -3Q P)
(MOVEM 5Q -4Q P)
(JUMPE 5Q TAG27)
(HLRZ@ 5Q -10Q P)
(PUSH P 5Q)
(HLRZ@ 5Q -5Q P)
(POP P 4Q)
(CAMN 5Q 4Q)
(JRST 0Q TAG5)
TAG27
TAG3 (HRRZ@ 5Q -3Q P)
(MOVE 1Q 0Q P)
(MOVEM 5Q -3Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG2)
TAG4 (MOVE 2Q (SPECIAL P2CNT) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q -10Q P)
(CALL 1Q (E SPECIALP) S)
(JUMPE 1Q TAG32)
(HLRZ@ 1Q -10Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG7)
TAG32 (JRST 0Q TAG10)
TAG5 (HRRZ@ 5Q -4Q P)
(CAIE 5Q (QUOTE TAKEN) S)
(JRST 0Q TAG34)
(MOVE 2Q -4Q P)
(MOVE 1Q -10Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG36)
(MOVE 5Q 0Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG6)
TAG36 (JRST 0Q TAG3)
TAG34 (HRRZ@ 1Q -4Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG40)
(HRRZ@ 5Q -4Q P)
(JRST 0Q TAG37)
TAG40 (MOVE 5Q (SPECIAL P2CNT) S)
TAG37 (MOVEM 5Q -5Q P)
(MOVE 2Q -6Q P)
(MOVE 1Q 5Q)
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG43)
(MOVE 2Q -2Q P)
(MOVE 1Q -5Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG43)
(MOVE 5Q -5Q P)
(MOVE 4Q 0Q P)
(MOVEM 4Q -1Q P)
(MOVEM 5Q -2Q P)
TAG43 (JRST 0Q TAG3)
TAG6 (MOVE 2Q (SPECIAL NACS) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E *GREAT) S)
(JUMPN 1Q TAG47)
(MOVE 1Q -1Q P)
(JRST 0Q TAG46)
TAG47 (MOVE 1Q -1Q P)
(CALL 1Q (E MINUS) S)
(MOVE 2Q (SPECIAL NACS) S)
(CALL 2Q (E *PLUS) S)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E *PLUS) S)
TAG46 (JRST 0Q TAG7)
TAG10 (MOVEI 1Q (QUOTE NIL))
TAG7 (SUB P (C 11Q 0Q 11Q 0Q))
(POPJ P)
NIL
(LAP ILOC1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 2Q (E ILOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(JRST 0Q TAG1)
TAG5 (MOVE 2Q (SPECIAL PROGVARS) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG7)
(MOVEI 1Q (QUOTE ((QUOTE NIL))) S)
(JRST 0Q TAG1)
TAG7 (MOVE 2Q (SPECIAL VARLIST) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E ASSOCR) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG11)
(HRRZ@ 2Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E ILOC1) S)
(JRST 0Q TAG1)
TAG11 (MOVE 2Q (SPECIAL CCLST) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG13)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(JUMPN 2Q TAG15)
(MOVEI 2Q (QUOTE CCAC) S)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E GET) S)
(EXCH 2Q 1Q)
(JRST 0Q TAG14)
TAG15
TAG14 (POP P 1Q)
(CALL 2Q (E LOADCARCDR) S)
(JRST 0Q TAG1)
TAG13 (MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(CALL 1Q (E PRINTMSG) S)
(MOVEI 1Q (QUOTE (LOSTVAR-ILOC1)) S)
(CALL 17Q (E COMPERR) S)
(MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP INITZ SUBR)
(PUSH P 1Q)
(CALL 1Q (E NCONS) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE ((QUOTE NIL))) S)
(CALL 1Q (E OUTPUSH) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP INTERNALLAMBDA SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HLRZ@ 5Q 1Q)
(HRRZ@ 4Q 5Q)
(HLRZ@ 4Q 4Q)
(HRRZ@ 1Q 1Q)
(PUSH P 4Q)
(PUSH P 5Q)
(CALL 1Q (E COMPARGS) S)
(CALL 1Q (E REVERSE) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q -5Q P)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(CALL 1Q (E LENGTH) S)
(POP P 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG13)
(MOVEI 1Q (QUOTE (ARGNOERR-INTERNALLAMBDA)) S)
(CALL 17Q (E USERERR) S)
TAG13
TAG1 (MOVE 5Q -5Q P)
(JUMPE 5Q TAG2)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E REMOVL) S)
(HLRZ@ 1Q -5Q P)
(MOVEM 1Q -2Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG16)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG21)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG20)
TAG21 (CALL 0Q (E FREEAC) S)
(HLRZ@ 2Q -3Q P)
(MOVEM 1Q -1Q P)
(CALL 2Q (E LOADARG) S)
TAG20 (MOVE 2Q (SPECIAL SPLDLST) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG23)
(MOVE 1Q -2Q P)
(CALL 1Q (E CLRSPVAR) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E REMSPVAR) S)
TAG23 (JRST 0Q TAG15)
TAG16 (MOVE 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG25)
(MOVE 1Q -1Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVEM 1Q -2Q P)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG24)
TAG25 (MOVE 1Q -2Q P)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E OUTPUSH) S)
(MOVEI 5Q (QUOTE 0Q))
(MOVEM 5Q -1Q P)
TAG24
TAG15 (MOVEI 2Q (QUOTE TAKEN) S)
(HLRZ@ 1Q -5Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E SETSLOT) S)
(HRRZ@ 5Q -3Q P)
(HRRZ@ 4Q -5Q P)
(MOVEM 4Q -5Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG27)
(MOVEI 1Q (QUOTE (JSP 6Q SPECBIND)) S)
(CALL 1Q (E OUTSTAT) S)
TAG27 (HRRZ@ 5Q -4Q P)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q -5Q P)
TAG3 (MOVE 5Q -5Q P)
(JUMPE 5Q TAG4)
(MOVEI 2Q (QUOTE TAKEN) S)
(HLRZ@ 1Q -5Q P)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E ILOC) S)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG32)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E FREEZE) S)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE S) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
TAG32 (MOVE 1Q -1Q P)
(CALL 1Q (E SLOTCONT) S)
(HLLZS@ 0Q 1Q)
(HRRZ@ 5Q -5Q P)
(MOVEM 5Q -5Q P)
(JRST 0Q TAG3)
TAG4 (HRRZ@ 5Q -4Q P)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q -5Q P)
(MOVE 4Q -6Q P)
(JUMPE 4Q TAG34)
(HRRZ@ 1Q -4Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E COMPE) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG33)
TAG34 (MOVE 2Q -7Q P)
(HRRZ@ 1Q -4Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E COMP) S)
(MOVEM 1Q -2Q P)
(HLRZ@ 5Q 1Q)
(CAIN 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG5)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG41)
(HLRZ@ 5Q -1Q P)
(CAIE 5Q (QUOTE SPECIAL) S)
(JRST 0Q TAG43)
(MOVE 2Q -5Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG5)
TAG43 (MOVE 2Q -2Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E LOADARG) S)
(MOVE 5Q -7Q P)
(MOVEM 5Q -1Q P)
TAG41 (MOVE 1Q -1Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVE 2Q -5Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG46)
(MOVE 1Q -2Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 2Q -6Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E MARKVAL) S)
(MOVEM 1Q -2Q P)
TAG46
TAG33
TAG5 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG50)
(MOVEI 1Q (QUOTE (PUSHJ P SPECSTR)) S)
(CALL 1Q (E OUTSTAT) S)
TAG50 (MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
TAG6 (MOVE 5Q -5Q P)
(JUMPN 5Q TAG52)
(MOVE 1Q -2Q P)
(JRST 0Q TAG7)
TAG52 (HLRZ@ 1Q 5Q)
(CALL 1Q (E FREEZE) S)
(HRRZ@ 5Q -5Q P)
(MOVEM 5Q -5Q P)
(JRST 0Q TAG6)
TAG7 (SUB P (C 11Q 0Q 11Q 0Q))
(POPJ P)
NIL
(LAP KILLPDL SUBR)
(MOVEI 1Q (QUOTE NIL))
(JCALL 1Q (E RESTOR) S)
NIL
(LAP LAMBDABIND SUBR)
(MOVEI 2Q (QUOTE T) S)
(JCALL 2Q (E BINDVARS) S)
NIL
(LAP LISTNILS SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP LOADARG SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E REMOVL) S)
(MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E ILOC1) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E SLOTCONT) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q -4Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG12)
(MOVE 1Q -4Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVE 5Q 1Q)
(JRST 0Q TAG11)
TAG12 (MOVEI 5Q (QUOTE NIL))
TAG11 (MOVE 1Q -3Q P)
(MOVEM 5Q 0Q P)
(CALL 1Q (E DVP) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E DVP) S)
(MOVEM 1Q -2Q P)
(MOVE 5Q -6Q P)
(CAME 5Q -4Q P)
(JRST 0Q TAG14)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG16)
(MOVE 1Q -6Q P)
(CALL 1Q (E CPUSH) S)
TAG16 (JRST 0Q TAG7)
TAG14 (MOVE 5Q -4Q P)
(CAIE 5Q (QUOTE 0Q))
(JRST 0Q TAG21)
(MOVE 5Q -2Q P)
(JUMPN 5Q TAG23)
(MOVE 5Q -1Q P)
(JUMPN 5Q TAG25)
(MOVE 2Q (SPECIAL MINDEPTH) S)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 2Q (E *GREAT) S)
(JUMPN 1Q TAG4)
TAG25
TAG23
TAG21 (MOVE 5Q -2Q P)
(JUMPN 5Q TAG30)
(MOVE 5Q -3Q P)
(JUMPE 5Q TAG32)
(MOVE 1Q -4Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG34)
(MOVE 2Q -6Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG1)
TAG34
TAG32
TAG30 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG3)
(JRST 0Q TAG2)
TAG1 (MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 3Q -4Q P)
(MOVE 2Q -6Q P)
(MOVEI 1Q (QUOTE EXCH) S)
(CALL 3Q (E OUT1) S)
(JRST 0Q TAG7)
TAG2 (MOVE 1Q -6Q P)
(CALL 1Q (E CPUSH) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -4Q P)
TAG3 (MOVE 1Q -4Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG5)
(PUSH P -6Q P)
(HRRZ@ 2Q -1Q P)
(JUMPN 2Q TAG40)
(MOVEI 2Q (QUOTE DUP) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG37)
TAG40 (MOVE 2Q -1Q P)
TAG37 (POP P 1Q)
(CALL 2Q (E SETSLOT) S)
(MOVE 2Q -4Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E OUTMOVE) S)
(JRST 0Q TAG7)
TAG4 (MOVE 2Q 0Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 1Q -6Q P)
(CALL 1Q (E OUTPOP) S)
(JRST 0Q TAG7)
TAG5 (PUSH P -6Q P)
(HLRZ@ 5Q -5Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG43)
(HLRZ@ 2Q -5Q P)
(JRST 0Q TAG42)
TAG43 (HLRZ@ 1Q -6Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
TAG42 (POP P 1Q)
(CALL 2Q (E SETSLOT) S)
(MOVE 2Q -4Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E OUTMOVE) S)
TAG7 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP LOADCARCDR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E CDDR) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E ILOC1) S)
(CAME 1Q -3Q P)
(JRST 0Q TAG10)
(MOVE 1Q 0Q P)
(CALL 1Q (E REMOVL) S)
TAG10 (MOVE 3Q 0Q P)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 3Q (E CSTEP) S)
(MOVEM 1Q -1Q P)
(HRRZ@ 5Q 1Q)
(JUMPN 5Q TAG12)
(HLRZ@ 2Q -4Q P)
(HLRZ@ 1Q 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL VARLIST) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL VARLIST) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E REMOVL) S)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E LOC) S)
(JRST 0Q TAG4)
TAG12 (MOVE 1Q -1Q P)
(CALL 1Q (E REVERSE) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q -3Q P)
(CALL 1Q (E CPUSH) S)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E LOC) S)
(HRRZ@ 5Q -1Q P)
(MOVEM 1Q -2Q P)
(MOVE 1Q 0Q P)
(MOVEM 5Q -1Q P)
(CALL 1Q (E REMOVL) S)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG3)
(HRRZ@ 5Q -1Q P)
(JUMPE 5Q TAG2)
(MOVE 5Q -3Q P)
(CAME 5Q (SPECIAL VALUEAC) S)
(JRST 0Q TAG16)
(MOVE 5Q -2Q P)
(CAME 5Q (SPECIAL VALUEAC) S)
(JRST 0Q TAG16)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE R) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E REVERSE) S)
(MOVEI 2Q (QUOTE C) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E READLIST) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E OUTCALL) S)
(JRST 0Q TAG3)
TAG16
TAG2 (MOVEI 2Q (QUOTE ((A HLRZ@) (D HRRZ@))) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
(MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(CALL 1Q (E CADR) S)
(CALL 3Q (E OUT1) S)
(HRRZ@ 5Q -1Q P)
(MOVE 4Q -3Q P)
(MOVEM 4Q -2Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 1Q -3Q P)
TAG4 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP LOADCOMP SUBR)
(PUSH P 2Q)
(CALL 2Q (E COMP) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E LOADARG) S)
NIL
(LAP LOADSUBRARGS SUBR)
(PUSH P 1Q)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E LOADARG) S)
(HRRZ@ 5Q -1Q P)
(MOVE 1Q 0Q P)
(MOVEM 5Q -1Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP LOC SUBR)
(MOVEI 2Q (QUOTE NIL))
(JCALL 2Q (E ILOC1) S)
NIL
(LAP MARKVAL SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE (NULLLOC-MARKVAL)) S)
(CALL 17Q (E COMPERR) S)
TAG5 (MOVEI 1Q (QUOTE VAL) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 2Q (E SETSLOT) S)
(HLRZ@ 5Q 1Q)
(MOVEM 5Q 0Q P)
(MOVE 4Q -2Q P)
(JUMPN 4Q TAG7)
(MOVE 2Q (SPECIAL LDLST) S)
(MOVE 1Q 5Q)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL LDLST) S)
TAG7 (MOVE 1Q 0Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP NONSPECVARS SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q 5Q)
(CALL 1Q (E SPECVARP) S)
(JUMPN 1Q TAG5)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
TAG5 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUT1 SUBR)
(CALL 3Q (E TRANSOUT) S)
(JCALL 1Q (E OUTSTAT) S)
NIL
(LAP OUTCALL SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE NOCALL) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG2)
(MOVE 3Q 0Q P)
(MOVEI 2Q (QUOTE P) S)
(MOVEI 1Q (QUOTE PUSHJ) S)
(CALL 3Q (E OUT1) S)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE CALL) S)
(CALL 3Q (E OUTFUNCALL) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUTCALLF SUBR)
(MOVE 3Q 2Q)
(EXCH 2Q 1Q)
(MOVEI 1Q (QUOTE CALLF@) S)
(JCALL 3Q (E OUT1) S)
NIL
(LAP OUTCJMP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE JUMPN) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE JUMPE) S)
TAG1 (POP P 3Q)
(POP P 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E OUTJMP) S)
NIL
(LAP OUTENDTAG SUBR)
(PUSH P 1Q)
(CALL 1Q (E USEDTAGP) S)
(JUMPE 1Q TAG2)
(CALL 0Q (E CLEARITALL) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E RST) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTSTAT) S)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP OUTFUNCALL SUBR)
(PUSH P 1Q)
(MOVE 1Q 3Q)
(PUSH P 2Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE E) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE S) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JCALL 1Q (E OUTSTAT) S)
NIL
(LAP OUTGOTAB SUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(MOVEI 3Q (QUOTE LEVEL) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(HLRZ@ 5Q (SPECIAL LASTOUT) S)
(HLRZ@ 5Q 5Q)
(CAIN 5Q (QUOTE JRST) S)
(JRST 0Q TAG6)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTJRST) S)
TAG6 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E OUTSTAT) S)
TAG1 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JUMPN 5Q TAG10)
(MOVEI 1Q (QUOTE (PUSHJ P *UDT)) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTSTAT) S)
(JRST 0Q TAG3)
TAG10 (HLRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE S) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL GOTABAC) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE CAIN) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(HLRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E OUTJRST) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUTJCALL SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE NOCALL) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG2)
(MOVE 3Q 0Q P)
(MOVEI 2Q (QUOTE 0Q))
(MOVEI 1Q (QUOTE JRST) S)
(CALL 3Q (E OUT1) S)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE JCALL) S)
(CALL 3Q (E OUTFUNCALL) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUTJMP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 0Q (E CLEAR1BOTH) S)
(CALL 0Q (E SAVEACS) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E RST) S)
(MOVEI 3Q (QUOTE USED) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP OUTJRST SUBR)
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE 0Q))
(MOVEI 1Q (QUOTE JRST) S)
(JCALL 3Q (E OUTJMP) S)
NIL
(LAP OUTMOVE SUBR)
(MOVE 3Q 2Q)
(EXCH 2Q 1Q)
(MOVEI 1Q (QUOTE MOVE) S)
(JCALL 3Q (E OUT1) S)
NIL
(LAP OUTMOVEM SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CAIE 2Q (QUOTE 0Q))
(JRST 0Q TAG2)
(MOVE 1Q (SPECIAL LASTOUT) S)
(JUMPE 1Q TAG2)
(HLRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE PUSH) S)
(JRST 0Q TAG2)
(HLRZ@ 5Q 1Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE P) S)
(JRST 0Q TAG2)
(CLEARM 5Q (SPECIAL LASTOUT) S)
(MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE P) S)
(MOVEI 1Q (QUOTE PUSH) S)
(CALL 3Q (E OUT1) S)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE MOVEM) S)
(CALL 3Q (E OUT1) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUTPOP SUBR)
(PUSH P 1Q)
(CALL 0Q (E SLOTPOP) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL LASTOUT) S)
(JUMPE 5Q TAG5)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE PUSH) S)
(JRST 0Q TAG5)
(HLRZ@ 5Q (SPECIAL LASTOUT) S)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE P) S)
(JRST 0Q TAG5)
(HLRZ@ 5Q (SPECIAL LASTOUT) S)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q 5Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG13)
(CLEARB 1Q (SPECIAL LASTOUT) S)
(JRST 0Q TAG1)
TAG13 (MOVE 1Q -1Q P)
(CALL 1Q (E ACNUMP) S)
(JUMPE 1Q TAG14)
(CLEARM 5Q (SPECIAL LASTOUT) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E OUTMOVE) S)
(JRST 0Q TAG1)
TAG14
TAG5 (MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE P) S)
(MOVEI 1Q (QUOTE POP) S)
(CALL 3Q (E OUT1) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUTPUSH SUBR)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL LASTOUT) S)
(JUMPE 1Q TAG2)
(HLRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE POP) S)
(JRST 0Q TAG2)
(MOVE 1Q 0Q P)
(CALL 1Q (E ACNUMP) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE P) S)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q (SPECIAL LASTOUT) S)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG2)
(CLEARM 5Q (SPECIAL LASTOUT) S)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E OUTMOVE) S)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q 0Q P)
(MOVEI 2Q (QUOTE P) S)
(MOVEI 1Q (QUOTE PUSH) S)
(CALL 3Q (E OUT1) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP OUTPUTSTAT SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HLRZ@ 5Q -1Q P)
(CAIN 5Q (QUOTE LAP) S)
(JRST 0Q TAG1)
(MOVE 1Q (SPECIAL CODESIZE) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL CODESIZE) S)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG10)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE C) S)
(JRST 0Q TAG10)
(MOVE 1Q (SPECIAL CONSTSIZE) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL CONSTSIZE) S)
TAG10
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E PRINTSTAT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP OUTSTAT SUBR)
(PUSH P 1Q)
(MOVE 5Q (SPECIAL LASTOUT) S)
(JUMPE 5Q TAG2)
(HLRZ@ 1Q (SPECIAL LASTOUT) S)
(CALL 1Q (E OUTPUTSTAT) S)
(HRRZ@ 1Q (SPECIAL LASTOUT) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG13)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
(CALL 0Q (E TERPRI) S)
(MOVEI 1Q (QUOTE 22Q))
(CALL 1Q (E TAB) S)
(MOVEI 2Q (QUOTE 23Q))
(EXCH 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(POP P -1Q P)
(JRST 0Q TAG1)
TAG13 (SUB P (C 1Q 0Q 1Q 0Q))
TAG2 (CALL 0Q (E LAPNOTES) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL LASTOUT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PASS2 SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ACS) S)
(0Q 0Q (SPECIAL PDL) S)
(0Q 0Q (SPECIAL PDLDEPTH) S)
(0Q 0Q (SPECIAL MINDEPTH) S)
(0Q 0Q (SPECIAL LDLST) S)
(0Q 0Q (SPECIAL SPLDLST) S)
(0Q 0Q (SPECIAL PRGSPFLG) S)
(0Q 0Q (SPECIAL CCLST) S)
(0Q 0Q (SPECIAL VARLIST) S)
(0Q 0Q (SPECIAL PROGVARS) S)
(0Q 0Q (SPECIAL PROGSW) S)
(0Q 0Q (SPECIAL GOLIST) S)
(PUSH P 1Q)
(MOVEI 5Q (QUOTE 1Q))
(MOVEM 5Q (SPECIAL P2CNT) S)
(MOVE 1Q (SPECIAL NACS) S)
(CALL 1Q (E LISTNILS) S)
(MOVEM 1Q (SPECIAL ACS) S)
(MOVE 2Q (SPECIAL NACS) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E LSH) S)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q (SPECIAL ALLACS) S)
(CLEARM 5Q (SPECIAL PDL) S)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E LENGTH) S)
(MOVEM 1Q (SPECIAL PDLDEPTH) S)
(MOVEM 1Q (SPECIAL MINDEPTH) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E LAMBDABIND) S)
(PUSH P 1Q)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIN 5Q (QUOTE PROG) S)
(JRST 0Q TAG5)
(CLEARM 5Q (SPECIAL PRGSPFLG) S)
TAG5 (MOVE 2Q (SPECIAL VALUEAC) S)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E LOADCOMP) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E EXITBUM) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E OUTSTAT) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 5Q (SPECIAL LDLST) S)
(JUMPE 5Q TAG7)
(MOVEI 1Q (QUOTE (LDLSTLEFT-PASS2)) S)
(CALL 17Q (E COMPERR) S)
TAG7 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP P2*EVAL SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE CONS) S)
(JRST 0Q TAG7)
(HRRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG11)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CADAR) S)
(MOVEI 2Q (QUOTE (FEXPR FSUBR *FSUBR)) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E GETL) S)
(JUMPN 1Q TAG1)
TAG11
TAG7 (MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 3Q (E CALLSUBR) S)
(JRST 0Q TAG2)
TAG1 (MOVE 2Q (SPECIAL FARGAC) S)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E LOADCOMP) S)
(CALL 0Q (E CLEAR2BOTH) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E PROTECTACS) S)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE 17Q))
(CALL 2Q (E OUTCALL) S)
(MOVE 2Q -2Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP P2ARG SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL INLSUBR) S)
(JUMPN 5Q TAG5)
(MOVEI 1Q (QUOTE (NOTINLSUBR-P2ARG)) S)
(CALL 17Q (E USERERR) S)
TAG5 (MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E COMP) S)
(MOVEM 1Q 0Q P)
(HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG7)
(MOVE 1Q -2Q P)
(CALL 1Q (E CPUSH) S)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E ADD1) S)
(CALL 1Q (E MINUS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E OUTMOVE) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE HRRZ) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E MARKVAL) S)
(JRST 0Q TAG1)
TAG7 (MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E LOADARG) S)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E ADD1) S)
(CALL 1Q (E MINUS) S)
(MOVE 3Q 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE ADD) S)
(CALL 3Q (E OUT1) S)
(MOVE 1Q (SPECIAL INUM0) S)
(CALL 1Q (E MINUS) S)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE HRRZ) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E MARKVAL) S)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP P2CARCDR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(CAIN 1Q (QUOTE 1Q))
(JRST 0Q TAG5)
(MOVEI 1Q (QUOTE (ARGNOERR-P2CARCDR)) S)
(CALL 17Q (E USERERR) S)
TAG5 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG7)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E COMPE) S)
(JRST 0Q TAG1)
TAG7 (CALL 0Q (E GENSYM) S)
(MOVEM 1Q 0Q P)
(HLRZ@ 1Q -3Q P)
(MOVE 2Q -2Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E COMP) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE CCAC) S)
(MOVE 2Q -2Q P)
(MOVEM 1Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 2Q (SPECIAL CCLST) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL CCLST) S)
(MOVE 2Q (SPECIAL P2CNT) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL LDLST) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL LDLST) S)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP P2COND SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(HRRZ@ 1Q 1Q)
(CALL 5Q (E P2COND1) S)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E CPUSH) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 2Q (E MARKVAL) S)
NIL
(LAP P2COND1 SUBR)
(PUSH P 5Q)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (SPECIAL LDLST) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG4)
(MOVE 2Q (SPECIAL LOCVARS) S)
(HLRZ@ 1Q 5Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(JUMPN 1Q TAG3)
TAG2 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG17)
(MOVE 1Q 0Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E DVP) S)
(JUMPN 1Q TAG20)
(MOVE 2Q (SPECIAL P2CNT) S)
(HLRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E SETSLOT) S)
(JRST 0Q TAG2)
TAG20 (HRRZ@ 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG2)
TAG17 (MOVE 2Q (SPECIAL P2CNT) S)
(HLRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTPUSH) S)
(JRST 0Q TAG2)
TAG4 (CALL 0Q (E CLEAR1) S)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL MINDEPTH) S)
(0Q 0Q (SPECIAL CTAG) S)
(0Q 0Q (SPECIAL RSL) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEM 1Q -2Q P)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(MOVE 5Q (SPECIAL PDLDEPTH) S)
(MOVEM 5Q (SPECIAL MINDEPTH) S)
(MOVEI 3Q (QUOTE LEVEL) S)
(MOVE 2Q 1Q)
(MOVEM 1Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUTPROP) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG5 (CLEARM 5Q (SPECIAL RSL) S)
(MOVE 5Q -16Q P)
(JUMPN 5Q TAG25)
(MOVE 5Q -3Q P)
(JUMPE 5Q TAG27)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVE 1Q -15Q P)
(CALL 2Q (E LOADARG) S)
TAG27 (MOVE 1Q -12Q P)
(CALL 1Q (E OUTENDTAG) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E USEDTAGP) S)
(JUMPN 1Q TAG32)
(MOVE 5Q -17Q P)
(JUMPE 5Q TAG31)
TAG32 (CALL 0Q (E CLEARITALL) S)
TAG31 (MOVE 1Q -11Q P)
(CALL 1Q (E RESTOR) S)
(JRST 0Q TAG22)
TAG25 (HLRZ@ 5Q -16Q P)
(MOVEM 5Q -5Q P)
(HRRZ@ 4Q 5Q)
(JUMPN 4Q TAG34)
(HRRZ@ 5Q -16Q P)
(JUMPN 5Q TAG36)
(MOVE 5Q -14Q P)
(JUMPE 5Q TAG40)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E COMPE) S)
(JRST 0Q TAG37)
TAG40 (MOVE 5Q -17Q P)
(JUMPE 5Q TAG41)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVE 4Q -13Q P)
(MOVE 3Q -17Q P)
(MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 5Q (E BOOLEXPR) S)
(JRST 0Q TAG37)
TAG41 (MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 2Q (E LOADCOMP) S)
TAG37 (JRST 0Q TAG35)
TAG36 (MOVE 5Q -14Q P)
(JUMPN 5Q TAG44)
(MOVE 5Q -17Q P)
(JUMPE 5Q TAG43)
(MOVE 5Q -13Q P)
(JUMPN 5Q TAG43)
TAG44 (MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q -12Q P)
(MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 5Q (E BOOLEXPR) S)
(JRST 0Q TAG35)
TAG43 (MOVE 5Q -17Q P)
(JUMPE 5Q TAG47)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q -17Q P)
(MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 5Q (E BOOLEXPR) S)
(JRST 0Q TAG35)
TAG47 (MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 2Q (E LOADCOMP) S)
(MOVE 3Q -12Q P)
(MOVE 2Q -15Q P)
(MOVEI 1Q (QUOTE T) S)
(CALL 3Q (E OUTCJMP) S)
TAG35 (MOVE 1Q -11Q P)
(CALL 1Q (E RESTOR) S)
(JRST 0Q TAG11)
TAG34 (MOVE 5Q -17Q P)
(JUMPN 5Q TAG6)
(MOVEI 2Q (QUOTE ((QUOTE NIL))) S)
(HRRZ@ 1Q -5Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG53)
(HLRZ@ 5Q -5Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE NULL) S)
(JRST 0Q TAG53)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG60)
(MOVEI 2Q (QUOTE BOOL) S)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E CAADR) S)
(CALL 2Q (E HASPROP) S)
(JUMPN 1Q TAG53)
TAG60 (MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E LOADCOMP) S)
(MOVE 3Q -12Q P)
(MOVE 2Q -15Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 3Q (E OUTCJMP) S)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG12)
TAG53 (MOVE 5Q (SPECIAL LDLST) S)
(JUMPN 5Q TAG6)
(HRRZ@ 5Q -5Q P)
(HRRZ@ 5Q 5Q)
(JUMPN 5Q TAG6)
(HRRZ@ 5Q -5Q P)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE GO) S)
(JRST 0Q TAG64)
(HRRZ@ 1Q -5Q P)
(CALL 1Q (E CADAR) S)
(MOVEM 1Q -6Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG64)
(HLRZ@ 1Q -5Q P)
(MOVEM 1Q -10Q P)
(MOVE 1Q -6Q P)
(CALL 1Q (E EQUIVTAG) S)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q 1Q)
(MOVE 2Q -15Q P)
(EXCH 1Q -10Q P)
(CALL 5Q (E BOOLEXPR) S)
(JRST 0Q TAG11)
TAG64 (MOVEI 2Q (QUOTE (RETURN (QUOTE NIL))) S)
(HRRZ@ 1Q -5Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG70)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q (SPECIAL EXITN) S)
(MOVE 2Q -15Q P)
(HLRZ@ 1Q -5Q P)
(CALL 5Q (E BOOLEXPR) S)
(JRST 0Q TAG11)
TAG70
TAG6 (MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEM 1Q (SPECIAL CTAG) S)
(MOVEI 3Q (QUOTE LEVEL) S)
(MOVE 2Q -11Q P)
(MOVEM 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(CLEARM 5Q (SPECIAL RSL) S)
(PUSH P -15Q P)
(PUSH P -6Q P)
(HLRZ@ 1Q 0Q P)
(MOVEM 1Q -12Q P)
(MOVE 3Q -21Q P)
(JUMPE 3Q TAG72)
(HRRZ@ 3Q -20Q P)
(JUMPN 3Q TAG72)
(MOVE 3Q -15Q P)
(JUMPN 3Q TAG72)
(MOVE 3Q -21Q P)
(JRST 0Q TAG71)
TAG72 (MOVE 3Q -2Q P)
TAG71 (MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVEI 4Q (QUOTE NIL))
(MOVE 2Q -1Q P)
(MOVE 1Q -12Q P)
(CALL 5Q (E BOOLEXPR) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(MOVE 1Q (SPECIAL RSL) S)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG101)
(MOVE 5Q (SPECIAL RSL) S)
(JRST 0Q TAG100)
TAG101 (MOVE 1Q (SPECIAL ACS) S)
(CALL 1Q (E TOPCOPY) S)
(MOVEM 1Q -10Q P)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -10Q P)
(CALL 2Q (E XCONS) S)
(MOVE 5Q 1Q)
TAG100 (MOVE 1Q (SPECIAL SPLDLST) S)
(MOVEM 5Q -2Q P)
(CALL 1Q (E TOPCOPY) S)
(MOVEM 1Q -10Q P)
(MOVE 1Q (SPECIAL CCLST) S)
(CALL 1Q (E TOPCOPY) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -10Q P)
(CALL 2Q (E XCONS) S)
(HRRZ@ 5Q -5Q P)
(MOVEM 5Q -7Q P)
(MOVEM 1Q -1Q P)
TAG7 (HRRZ@ 5Q -7Q P)
(JUMPE 5Q TAG10)
(HLRZ@ 1Q -7Q P)
(CALL 1Q (E COMPE) S)
(HRRZ@ 5Q -7Q P)
(MOVEM 5Q -7Q P)
(JRST 0Q TAG7)
TAG10 (MOVE 5Q -14Q P)
(JUMPE 5Q TAG105)
(HLRZ@ 1Q -7Q P)
(CALL 1Q (E COMPE) S)
(JRST 0Q TAG104)
TAG105 (MOVE 5Q -17Q P)
(JUMPE 5Q TAG106)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVE 4Q -13Q P)
(MOVE 3Q -17Q P)
(MOVE 2Q -15Q P)
(HLRZ@ 1Q -7Q P)
(CALL 5Q (E BOOLEXPR) S)
(JRST 0Q TAG104)
TAG106 (MOVE 2Q -15Q P)
(HLRZ@ 1Q -7Q P)
(CALL 2Q (E LOADCOMP) S)
TAG104 (CALL 0Q (E SAVEACS) S)
(HLRZ@ 5Q -1Q P)
(MOVEM 5Q (SPECIAL SPLDLST) S)
(HRRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q (SPECIAL CCLST) S)
(MOVE 5Q (SPECIAL ACS) S)
(HLRZ@ 4Q -2Q P)
(MOVEM 4Q (SPECIAL ACS) S)
(MOVE 1Q -15Q P)
(MOVEM 5Q -1Q P)
(CALL 1Q (E SLOTCONT) S)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(CALL 2Q (E EQUAL) S)
(MOVE 5Q -1Q P)
(MOVEM 5Q (SPECIAL ACS) S)
(CLEARM 5Q -3Q P)
(MOVEM 1Q -4Q P)
(MOVEI 2Q (QUOTE (GO RETURN)) S)
(HLRZ@ 1Q -7Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E MEMQ) S)
(JUMPN 1Q TAG111)
(HRRZ@ 5Q -16Q P)
(JUMPN 5Q TAG114)
(MOVE 5Q -14Q P)
(JUMPN 5Q TAG113)
(MOVE 5Q -17Q P)
(JUMPN 5Q TAG113)
(MOVE 5Q -4Q P)
(JUMPN 5Q TAG113)
(MOVE 1Q 0Q P)
(CALL 1Q (E USEDTAGP) S)
(MOVEM 1Q -3Q P)
(JUMPE 1Q TAG113)
TAG114 (MOVE 1Q -12Q P)
(CALL 1Q (E OUTJRST) S)
(JRST 0Q TAG112)
TAG113 (MOVE 1Q -11Q P)
(CALL 1Q (E RESTOR) S)
TAG112
TAG111 (HLRZ@ 5Q -2Q P)
(MOVEM 5Q (SPECIAL ACS) S)
(HRRZ@ 5Q -2Q P)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q (SPECIAL PDL) S)
(HRRZ@ 5Q -2Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q (SPECIAL PDLDEPTH) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E USEDTAGP) S)
(JUMPE 1Q TAG125)
(MOVE 1Q 0Q P)
(CALL 1Q (E OUTSTAT) S)
TAG125 (JRST 0Q TAG12)
TAG11 (CLEARM 5Q -3Q P)
TAG12 (HRRZ@ 5Q -16Q P)
(MOVEM 5Q -16Q P)
(JRST 0Q TAG5)
TAG22 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 20Q 0Q 20Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP P2ELSE SUBR)
(MOVEI 1Q (QUOTE (SOMETHINGELSE-P2ELSE)) S)
(JCALL 17Q (E COMPERR) S)
NIL
(LAP P2EQ SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPE 3Q TAG5)
(CALL 1Q (E CADR) S)
(CALL 1Q (E COMPE) S)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E COMPE) S)
(JRST 0Q TAG2)
TAG5 (MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q -1Q P)
(HRRZ@ 1Q -2Q P)
(CALL 4Q (E BOOLEQ1) S)
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 3Q (E BOOLVALUE) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP P2GO SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(CALL 0Q (E SAVEACS) S)
(CALL 0Q (E CLRPVARS) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVE 1Q 0Q P)
(CALL 1Q (E EQUIVTAG) S)
(CALL 1Q (E OUTJRST) S)
(JRST 0Q TAG4)
TAG5 (MOVE 2Q -2Q P)
(MOVE 1Q 0Q P)
(PUSH P (SPECIAL GOTABAC) S)
(CALL 2Q (E COMP) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E LOADARG) S)
(MOVE 1Q (SPECIAL VGO) S)
(CALL 1Q (E OUTJRST) S)
TAG4 (MOVE 2Q -1Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E MARKVAL) S)
NIL
(LAP P2NULL SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL CTAG) S)
(0Q 0Q (SPECIAL RSL) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 0Q (E CLEAR2BOTH) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEI 3Q (QUOTE SET) S)
(MOVEI 2Q (QUOTE T) S)
(PUSH P 1Q)
(CALL 3Q (E PUTPROP) S)
(MOVE 5Q (SPECIAL MINDEPTH) S)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q 0Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 5Q (E BOOLEXPR) S)
(MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E BOOLVALUE) S)
(SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP P2PROG SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E PROGBIND) S)
(CLEARM 5Q (SPECIAL PRGSPFLG) S)
(PUSH P 1Q)
(CALL 0Q (E CLEAR1) S)
(MOVE 4Q (SPECIAL MINDEPTH) S)
(MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 4Q (E P2PROG1) S)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG5)
(MOVEI 1Q (QUOTE (PUSHJ P SPECSTR)) S)
(CALL 1Q (E OUTSTAT) S)
TAG5 (MOVE 1Q -2Q P)
(CALL 1Q (E CPUSH) S)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E MARKVAL) S)
NIL
(LAP P2PROG1 SUBR)
(JSP 6Q SPECBIND)
(0Q 4Q (SPECIAL MINDEPTH) S)
(0Q 0Q (SPECIAL GOLIST) S)
(0Q 0Q (SPECIAL EXIT) S)
(0Q 0Q (SPECIAL EXITN) S)
(0Q 0Q (SPECIAL PVR) S)
(0Q 0Q (SPECIAL PRSSL) S)
(0Q 0Q (SPECIAL PROGSW) S)
(0Q 0Q (SPECIAL VGO) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL PROGSW) S)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG10)
(MOVEI 5Q (QUOTE NIL))
(JRST 0Q TAG7)
TAG10 (MOVE 5Q -1Q P)
TAG7 (MOVEM 5Q (SPECIAL PVR) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEM 1Q (SPECIAL EXIT) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEM 1Q (SPECIAL EXITN) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEM 1Q (SPECIAL VGO) S)
(MOVE 2Q (SPECIAL EXIT) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL EXITN) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL VGO) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(HRRZ@ 2Q -4Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL GOLIST) S)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E NONSPECVARS) S)
(MOVEM 1Q (SPECIAL PROGVARS) S)
(HRRZ@ 5Q -2Q P)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q -2Q P)
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG2)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(MOVE 5Q (SPECIAL PROGSW) S)
(JUMPN 5Q TAG14)
(MOVE 1Q (SPECIAL PRSSL) S)
(CALL 1Q (E RESTOR) S)
TAG14 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG16)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E PROGTAG) S)
(JRST 0Q TAG15)
TAG16 (HRRZ@ 5Q -2Q P)
(JUMPN 5Q TAG17)
(HLRZ@ 5Q -2Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE RETURN) S)
(JRST 0Q TAG17)
(MOVEI 2Q (QUOTE ((QUOTE NIL))) S)
(HLRZ@ 1Q -2Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG2)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG23)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E COMPE) S)
(JRST 0Q TAG22)
TAG23 (MOVE 2Q -1Q P)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E LOADCOMP) S)
TAG22 (MOVE 1Q (SPECIAL EXITN) S)
(CALL 1Q (E USEDTAGP) S)
(JUMPE 1Q TAG26)
(MOVE 1Q (SPECIAL EXIT) S)
(CALL 1Q (E OUTJRST) S)
(JRST 0Q TAG2)
TAG26 (JRST 0Q TAG3)
(JRST 0Q TAG15)
TAG17 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E COMPE) S)
TAG15 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL EXITN) S)
(CALL 1Q (E OUTENDTAG) S)
(MOVE 5Q 0Q P)
(JUMPN 5Q TAG31)
(HLRZ@ 5Q (SPECIAL LASTOUT) S)
(HLRZ@ 5Q 5Q)
(CAIN 5Q (QUOTE JRST) S)
(JRST 0Q TAG31)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVE 1Q (SPECIAL PVR) S)
(CALL 2Q (E LOADARG) S)
TAG31
TAG3 (MOVE 1Q (SPECIAL EXIT) S)
(CALL 1Q (E OUTENDTAG) S)
(MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(MOVE 1Q (SPECIAL VGO) S)
(CALL 1Q (E USEDTAGP) S)
(JUMPE 1Q TAG35)
(HRRZ@ 2Q (SPECIAL GOLIST) S)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL VGO) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E OUTGOTAB) S)
TAG35 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP P2PROG2 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 5Q 1Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q 5Q)
(CALL 1Q (E LENGTH) S)
(MOVEI 2Q (QUOTE 2Q))
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG6)
(MOVEI 1Q (QUOTE (TOOFEWARGS-P2PROG2)) S)
(CALL 17Q (E USERERR) S)
TAG6 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E COMPE) S)
(MOVE 5Q -2Q P)
(JUMPN 5Q TAG10)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E COMP) S)
(MOVE 5Q 1Q)
(JRST 0Q TAG7)
TAG10 (HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E COMPE) S)
(MOVE 5Q 1Q)
TAG7 (HRRZ@ 4Q -1Q P)
(HRRZ@ 4Q 4Q)
(MOVEM 5Q 0Q P)
(MOVEM 4Q -1Q P)
TAG1 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG13)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG13 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E COMPE) S)
(HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP P2QUOTE SUBR)
(POPJ P)
NIL
(LAP P2RETURN SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(CALL 0Q (E SAVEACS) S)
(CALL 0Q (E CLRPVARS) S)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG6)
(MOVE 1Q (SPECIAL EXITN) S)
(CALL 1Q (E OUTJRST) S)
(JRST 0Q TAG1)
TAG6 (MOVE 5Q (SPECIAL PVR) S)
(JUMPN 5Q TAG7)
(MOVE 1Q 0Q P)
(CALL 1Q (E COMPE) S)
(JRST 0Q TAG5)
TAG7 (MOVE 2Q 5Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E LOADCOMP) S)
TAG5 (MOVE 1Q (SPECIAL EXIT) S)
(CALL 1Q (E OUTJRST) S)
TAG1 (MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E MARKVAL) S)
NIL
(LAP P2RPLAC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E CADR) S)
(CALL 2Q (E COMP) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CADR) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P 1Q)
(CALL 0Q (E FREEAC) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E COMP) S)
(MOVE 2Q -2Q P)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ILOC1) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E LOC) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E REMOVS) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E REMOVS) S)
(CALL 0Q (E CLEAR2BOTH) S)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG5)
(MOVEI 2Q (QUOTE ((RPLACA HRRZS@) (RPLACD HLLZS@))) S)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E ASSOC) S)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E LOC) S)
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE 0Q))
(POP P 1Q)
(CALL 3Q (E OUT1) S)
(JRST 0Q TAG4)
TAG5 (MOVEI 2Q (QUOTE ((RPLACA HRLM@) (RPLACD HRRM@))) S)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E ASSOC) S)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(CALL 0Q (E FREEAC) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E PUTINAC) S)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 1Q (E LOC) S)
(MOVE 3Q 1Q)
(POP P 2Q)
(POP P 1Q)
(CALL 3Q (E OUT1) S)
TAG4 (MOVE 1Q 0Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 1Q -1Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP P2SETARG SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL INLSUBR) S)
(JUMPN 5Q TAG5)
(MOVEI 1Q (QUOTE (NOTINLSUBR-P2SETARG)) S)
(CALL 17Q (E USERERR) S)
TAG5 (MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E COMP) S)
(MOVEM 1Q 0Q P)
(MOVE 5Q -2Q P)
(CAIE 5Q (QUOTE 5Q))
(JRST 0Q TAG7)
(MOVEI 1Q (QUOTE 4Q))
(JRST 0Q TAG6)
TAG7 (MOVEI 1Q (QUOTE 5Q))
TAG6 (MOVEM 1Q -1Q P)
(CALL 1Q (E CLEARAC) S)
(HRRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG12)
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E LOADARG) S)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E ADD1) S)
(CALL 1Q (E MINUS) S)
(MOVE 3Q 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE MOVE) S)
(CALL 3Q (E OUT1) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q -3Q P)
(HLRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE HRRM) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG12 (MOVE 2Q -1Q P)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E LOADCOMP) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E LOADARG) S)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E ADD1) S)
(CALL 1Q (E MINUS) S)
(MOVE 3Q 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE ADD) S)
(CALL 3Q (E OUT1) S)
(MOVE 1Q (SPECIAL INUM0) S)
(CALL 1Q (E MINUS) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE HRRM) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP P2SETQ SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(PUSH P (SPECIAL CCLST) S)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -6Q P)
(JUMPE 5Q TAG12)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -6Q P)
(PUSH P 5Q)
(HRRZ@ 5Q 1Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAME 5Q -6Q P)
(JRST 0Q TAG14)
(CALL 1Q (E CSFUN) S)
(MOVEI 2Q (QUOTE CCLST) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E REMLST) S)
TAG14 (POP P -7Q P)
(JRST 0Q TAG1)
TAG12 (MOVE 5Q -7Q P)
(JUMPE 5Q TAG16)
(CALL 0Q (E FREEAC) S)
(MOVEM 1Q -10Q P)
TAG16 (MOVE 2Q -10Q P)
(HRRZ@ 1Q -11Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E COMP) S)
(MOVEM 1Q -3Q P)
(CALL 1Q (E LOC) S)
(MOVEM 1Q -1Q P)
(MOVE 2Q (SPECIAL SPLDLST) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG20)
(MOVE 1Q -5Q P)
(CALL 1Q (E CLRSPVAR) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E REMSPVAR) S)
(JRST 0Q TAG17)
TAG20 (MOVE 2Q (SPECIAL PROGVARS) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL PROGVARS) S)
TAG17 (MOVE 1Q -3Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E FREEZE) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG23)
(MOVEI 5Q (QUOTE T) S)
(JRST 0Q TAG22)
TAG23 (MOVE 2Q (SPECIAL P2CNT) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -10Q P)
(MOVEM 1Q 0Q P)
(CALL 2Q (E ILOC) S)
(MOVE 5Q 1Q)
(JUMPE 5Q TAG22)
(MOVE 1Q 0Q P)
(CALL 1Q (E LOC) S)
(CALL 1Q (E SLOTCONT) S)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG25)
(TDZA 5Q 5Q)
TAG25 (MOVEI 5Q (QUOTE T) S)
TAG22 (MOVE 1Q (SPECIAL P2CNT) S)
(MOVEM 5Q -2Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL P2CNT) S)
(MOVE 5Q -7Q P)
(JUMPE 5Q TAG27)
(MOVE 5Q -2Q P)
(JUMPN 5Q TAG27)
(MOVE 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG33)
(MOVE 1Q -1Q P)
(CALL 1Q (E SLOTCONT) S)
(CALL 1Q (E DVP) S)
(JUMPN 1Q TAG33)
(MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E SETSLOT) S)
(JRST 0Q TAG2)
TAG33 (MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E OUTPUSH) S)
(JRST 0Q TAG2)
TAG27 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG40)
(MOVEI 2Q (QUOTE (QUOTE NIL)) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG40)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q -4Q P)
(MOVE 1Q -7Q P)
(JUMPN 1Q TAG45)
(MOVE 1Q -10Q P)
(CALL 1Q (E SLOTCONT) S)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG44)
TAG45 (CLEARM 5Q -4Q P)
(MOVEI 1Q (QUOTE CLEARM) S)
(JRST 0Q TAG43)
TAG44 (MOVEI 1Q (QUOTE CLEARB) S)
TAG43 (PUSH P -10Q P)
(MOVEM 1Q -7Q P)
(MOVE 1Q -6Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG50)
(MOVE 1Q -6Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(MOVE 3Q 1Q)
(JRST 0Q TAG47)
TAG50 (MOVE 1Q (SPECIAL P2CNT) S)
(CALL 1Q (E SUB1) S)
(MOVE 2Q -6Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -11Q P)
(CALL 2Q (E ILOC) S)
(MOVE 3Q 1Q)
TAG47 (MOVEM 3Q -4Q P)
(POP P 2Q)
(MOVE 1Q -6Q P)
(CALL 3Q (E OUT1) S)
(MOVE 1Q -3Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG53)
(MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 2Q (E SETSLOT) S)
TAG53 (MOVE 5Q -4Q P)
(JUMPE 5Q TAG55)
(PUSH P -5Q P)
(PUSH P -11Q P)
(MOVE 1Q -5Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG57)
(MOVEI 2Q (QUOTE DUP) S)
(JRST 0Q TAG56)
TAG57 (MOVEI 2Q (QUOTE NIL))
TAG56 (MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E SETSLOT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG55 (JRST 0Q TAG2)
TAG40 (MOVE 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG63)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG63)
(MOVE 1Q -1Q P)
(CALL 1Q (E SLOTCONT) S)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG62)
TAG63 (MOVE 2Q -3Q P)
(MOVE 1Q -10Q P)
(CALL 2Q (E LOADARG) S)
(MOVE 5Q -10Q P)
(MOVEM 5Q -1Q P)
TAG62 (MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E SPECVARP) S)
(JUMPE 1Q TAG65)
(MOVE 1Q -1Q P)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG67)
(MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTPOP) S)
(JRST 0Q TAG66)
TAG67 (MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E OUTMOVEM) S)
TAG66
TAG65
TAG2 (MOVE 2Q -10Q P)
(MOVE 1Q -5Q P)
(SUB P (C 12Q 0Q 12Q 0Q))
(JCALL 2Q (E COMP) S)
NIL
(LAP P2STORE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E CADDR) S)
(CALL 2Q (E COMP) S)
(PUSH P 1Q)
(CALL 1Q (E LOC) S)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E COMPE) S)
(MOVE 2Q 0Q P)
(MOVE 1Q (SPECIAL ARRAYAC) S)
(CALL 2Q (E LOADARG) S)
(MOVEI 1Q (QUOTE (PUSHJ P NSTR)) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q 0Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP PROGBIND SUBR)
(MOVEI 2Q (QUOTE NIL))
(JCALL 2Q (E BINDVARS) S)
NIL
(LAP PROGTAG SUBR)
(PUSH P 1Q)
(CALL 0Q (E CLEAR2BOTH) S)
(CALL 0Q (E CLEARACS) S)
(CALL 0Q (E CLRPVARS) S)
(MOVE 1Q (SPECIAL PRSSL) S)
(CALL 1Q (E RESTOR) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E EQUIVTAG) S)
(CALL 1Q (E OUTSTAT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PROTECTACS SUBR)
(PUSH P 1Q)
(CALL 1Q (E ACEFFECTS) S)
(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
(PUSH P 1Q)
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG3)
(PUSH P (C 0Q 0Q TAG7 0Q))
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
(PUSH P -3Q P)
(MOVNI 6Q 3Q)
(JCALL 16Q (E BOOLE) S)
TAG7 (CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG6)
(MOVE 1Q -1Q P)
(CALL 1Q (E CLEARAC) S)
TAG6 (MOVEI 2Q (QUOTE -1Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E LSH) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP PUTINAC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E LOC) S)
(PUSH P 1Q)
(CALL 1Q (E ACNUMP) S)
(JUMPN 1Q TAG5)
(MOVE 1Q -1Q P)
(MOVE 2Q -2Q P)
(MOVEM 1Q 0Q P)
(CALL 2Q (E LOADARG) S)
TAG5 (MOVE 1Q -2Q P)
(CALL 1Q (E REMOVL) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E CPUSH) S)
(MOVE 1Q 0Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP REMOVL SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE LDLST) S)
(CALL 2Q (E REMLST) S)
(MOVEI 2Q (QUOTE SPLDLST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E REMLST) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP REMLST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(PUSH P 1Q)
TAG1 (HRRZ@ 5Q 0Q P)
(JUMPE 5Q TAG3)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q 0Q P)
(JRST 0Q TAG6)
TAG7 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
TAG6 (JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP REMOVS SUBR)
(MOVEI 2Q (QUOTE SPLDLST) S)
(JCALL 2Q (E REMLST) S)
NIL
(LAP REMSPVAR SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVEI 1Q (QUOTE SPLDLST) S)
(CALL 2Q (E GET) S)
(PUSH P 1Q)
TAG1 (HRRZ@ 5Q 0Q P)
(JUMPE 5Q TAG3)
(HRRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAME 5Q -1Q P)
(JRST 0Q TAG7)
(HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q 0Q P)
(JRST 0Q TAG6)
TAG7 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
TAG6 (JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP RESTOR SUBR)
(PUSH P 1Q)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q (SPECIAL PDLDEPTH) S)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG13)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -6Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E PRINTMSG) S)
(MOVEI 1Q (QUOTE (PDLSHORT-RESTOR)) S)
(CALL 17Q (E COMPERR) S)
TAG13
TAG1 (MOVEI 5Q (QUOTE 0Q))
(MOVEM 5Q 0Q P)
TAG2 (MOVE 2Q (SPECIAL PDLDEPTH) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG15)
(MOVE 1Q 0Q P)
(CALL 1Q (E SHRINKPDL) S)
(JRST 0Q TAG7)
TAG15 (HLRZ@ 1Q (SPECIAL PDL) S)
(MOVEM 1Q -2Q P)
(CALL 1Q (E DVP) S)
(JUMPN 1Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q 0Q P)
(CALL 0Q (E SLOTPOP) S)
(JRST 0Q TAG2)
TAG3 (MOVE 1Q 0Q P)
(CALL 1Q (E SHRINKPDL) S)
TAG4 (MOVE 5Q -6Q P)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 2Q -5Q P)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(MOVEM 4Q 0Q P)
(MOVEM 5Q -1Q P)
(CALL 2Q (E *DIF) S)
(MOVEM 1Q -4Q P)
TAG5 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG17)
(CALL 0Q (E FINDFREEAC) S)
(MOVEM 1Q -1Q P)
(JUMPN 1Q TAG21)
(MOVEI 1Q (QUOTE (NOAC-RESTOR)) S)
(CALL 17Q (E COMPERR) S)
TAG21 (MOVE 2Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E OUTPOP) S)
(JRST 0Q TAG1)
TAG17 (HLRZ@ 5Q 5Q)
(JUMPE 5Q TAG23)
(HLRZ@ 5Q -2Q P)
(PUSH P 5Q)
(HLRZ@ 5Q -2Q P)
(HLRZ@ 5Q 5Q)
(POP P 4Q)
(CAME 5Q 4Q)
(JRST 0Q TAG25)
(MOVE 2Q -4Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E *PLUS) S)
(CALL 1Q (E MINUS) S)
(MOVEM 1Q -3Q P)
(CALL 1Q (E SLOTCONT) S)
(CALL 1Q (E DVP) S)
(JUMPE 1Q TAG6)
TAG25
TAG23 (MOVE 1Q 0Q P)
(CALL 1Q (E ADD1) S)
(HRRZ@ 5Q -1Q P)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG5)
TAG6 (MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E SETSLOT) S)
(MOVE 1Q -3Q P)
(CALL 1Q (E OUTPOP) S)
(JRST 0Q TAG1)
TAG7 (SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP RSLSET SUBR)
(PUSH P 1Q)
(CAME 1Q (SPECIAL CTAG) S)
(JRST 0Q TAG2)
(MOVE 1Q (SPECIAL RSL) S)
(JUMPE 1Q TAG4)
(MOVE 2Q (SPECIAL ACS) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG10)
(MOVE 2Q (SPECIAL PDL) S)
(HRRZ@ 1Q (SPECIAL RSL) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG4)
TAG10 (MOVEI 1Q (QUOTE LOSE) S)
(JRST 0Q TAG3)
TAG4 (MOVE 1Q (SPECIAL ACS) S)
(CALL 1Q (E TOPCOPY) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG3 (MOVEM 1Q (SPECIAL RSL) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP RST SUBR)
(PUSH P 1Q)
(JUMPE 1Q TAG1)
(MOVE 2Q (SPECIAL GOLIST) S)
(CALL 2Q (E ASSOCR) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL PRSSL) S)
(CALL 1Q (E RESTOR) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE SET) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E REMPROP) S)
(JUMPE 1Q TAG3)
(CALL 0Q (E SAVEACS) S)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(MOVEI 3Q (QUOTE LEVEL) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(MOVEM 1Q (SPECIAL MINDEPTH) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 2Q (QUOTE LEVEL) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG4)
(CALL 1Q (E CADR) S)
(CALL 1Q (E RESTOR) S)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE (NIL-RST)) S)
(CALL 17Q (E COMPERR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SAVEACS SUBR)
(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
TAG1 (MOVE 5Q 0Q P)
(CAMN 5Q (SPECIAL NACS) S)
(JRST 0Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E CPUSH) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SETSLOT SUBR)
(PUSH P 2Q)
(CALL 1Q (E GETSLOT) S)
(POP P 5Q)
(HRLM@ 5Q 1Q)
(POPJ P)
NIL
(LAP SHRINKPDL SUBR)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG2)
(MOVE 5Q (SPECIAL LASTOUT) S)
(JUMPE 5Q TAG4)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE SUB) S)
(JRST 0Q TAG6)
(HLRZ@ 5Q (SPECIAL LASTOUT) S)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE P) S)
(JRST 0Q TAG10)
(HLRZ@ 2Q (SPECIAL LASTOUT) S)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E *PLUS) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG12)
(CLEARM 5Q (SPECIAL LASTOUT) S)
TAG12
TAG10
TAG6
TAG4 (MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q 0Q P)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q 3Q)
(CALL 4Q (E GENCONST) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE P) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SUB) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E OUTSTAT) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SIDEEFFECTS SUBR)
(MOVEI 2Q (QUOTE ACS) S)
(CALL 2Q (E HASPROP) S)
(JUMPE 1Q TAG1)
(TDZA 1Q 1Q)
TAG1 (MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP SLOTCONT SUBR)
(CALL 1Q (E GETSLOT) S)
(HLRZ@ 1Q 1Q)
(POPJ P)
NIL
(LAP SLOTLIST SUBR)
(MOVE 2Q (SPECIAL PDL) S)
(MOVE 1Q (SPECIAL ACS) S)
(JCALL 2Q (E *APPEND) S)
NIL
(LAP SLOTPOP SUBR)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q (SPECIAL PDLDEPTH) S)
(HRRZ@ 1Q (SPECIAL PDL) S)
(MOVEM 1Q (SPECIAL PDL) S)
(POPJ P)
NIL
(LAP SLOTPUSH SUBR)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL PDLDEPTH) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL PDLDEPTH) S)
(MOVE 2Q (SPECIAL PDL) S)
(POP P 1Q)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL PDL) S)
(POPJ P)
NIL
(LAP SPECVARP SUBR)
(MOVE 2Q (SPECIAL SPECVARS) S)
(JCALL 2Q (E MEMBER) S)
NIL
(LAP TRANSOUT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q 3Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HLRZ@ 1Q 3Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HLRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(MOVEI 2Q (QUOTE IMMED) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q -4Q P)
(JRST 0Q TAG1)
TAG10 (MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE 0Q))
(MOVEI 1Q (QUOTE 0Q))
(CALL 4Q (E GENCONST) S)
(MOVEM 1Q -2Q P)
TAG1 (MOVE 1Q -2Q P)
(CALL 1Q (E NEEDS) S)
(JUMPE 1Q TAG12)
(MOVEI 1Q (QUOTE S) S)
(CALL 1Q (E NCONS) S)
(MOVE 5Q 1Q)
(JRST 0Q TAG11)
TAG12 (MOVE 1Q -2Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG14)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG13)
TAG14 (MOVEI 5Q (QUOTE NIL))
(JRST 0Q TAG11)
TAG13 (MOVEI 1Q (QUOTE P) S)
(CALL 1Q (E NCONS) S)
(MOVE 5Q 1Q)
TAG11 (MOVE 2Q 5Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -4Q P)
(SUB P (C 5Q 0Q 5Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP USEDTAGP SUBR)
(MOVEI 2Q (QUOTE USED) S)
(JCALL 2Q (E HASPROP) S)
NIL
(DEFLIST ((EXPR CALLSUBR)
(SUBR CALLSUBR)
(*SUBR CALLSUBR)
(*UNDEF CALLSUBR)
(LSUBR CALLLSUBR)
(*LSUBR CALLLSUBR)
(FEXPR CALLFSUBR)
(FSUBR CALLFSUBR)
(*FSUBR CALLFSUBR)
(FUNVAR CALLFUNARGS)
(CARCDR P2CARCDR)
(P2 DOP2))
PASS2)
(DEFLIST ((ARG P2ARG)
(*EVAL P2*EVAL)
(COND P2COND)
(EQ P2EQ)
(GO P2GO)
(NULL P2NULL)
'P2QUOTE
(PROG P2PROG)
(PROG2 P2PROG2)
(RETURN P2RETURN)
(RPLACA P2RPLAC)
(RPLACD P2RPLAC)
(SETARG P2SETARG)
(SETQ P2SETQ)
(STORE P2STORE))
P2)
(DEFLIST ((EQ BOOLEQ) (NULL BOOLNULL) 'BOOLQUOTE (COND BOOLCOND)) BOOL)
(DEFLIST ((ASSOC 3Q)
(ATOM 1Q)
(CHRCT 1Q)
(CHRPOS 1Q)
(CLRBFI 1Q)
(CONS 3Q)
(CONSP 3Q)
(FREE 1Q)
(FREELIST 3Q)
(GENSYM 7Q)
(GET 1Q)
(LAST 3Q)
(LENGTH 7Q)
(LITATOM 3Q)
(MEMB 7Q)
(MEMQ 7Q)
(NCONS 3Q)
(NUMBERP 3Q)
(*NCONC 7Q)
(PATOM 1Q)
(PROMPT 1Q)
(READP 1Q)
(REVERSE 3Q)
(REMPROP 3Q)
(STRINGP 3Q)
(TALK 1Q)
(UNTYI 3Q)
(XCONS 3Q))
ACS)
(DEFLIST ((CONS XCONS)
(EQUAL EQUAL)
(*GREAT *LESS)
(*LESS *GREAT)
(*PLUS *PLUS)
(*TIMES *TIMES)
(*MIN *MIN)
(*MAX *MAX)
(+ +)
(* *)
(= =)
(LT GT)
(GT LT)
(LE GE)
(GE LE))
COMMU)
(DEFLIST ((CAME CAIE)
(CAMN CAIN)
(HLLZS@ HLLZS)
(HLRZ@ HLRZ)
(HRLM@ HRLM)
(HRRM@ HRRM)
(HRRZ@ HRRZ)
(HRRZS@ HRRZS)
(MOVE MOVEI))
IMMED)
(DEFV CARCDRDEPTH 4Q)
(PROGN (DEFPROP SETUPCARCDRS
(LAMBDA NIL
(PROG (BASE COUNT LIMIT MIDDLE NAME)
(SETQ BASE 2Q)
(SETQ LIMIT (SUB1 (LSH 1Q (ADD1 CARCDRDEPTH))))
(SETQ COUNT (LSH 1Q 1Q))
LOOP (COND [(GREATERP COUNT LIMIT) (RETURN NIL)])
(SETQ MIDDLE (SUBST 'A '/0 (SUBST 'D '/1 (CDR (EXPLODE COUNT)))))
(SETQ NAME (READLIST (APPEND '(C) MIDDLE '(R))))
(PUTPROP NAME
(CONS (CAR MIDDLE)
(COND [(CDR MIDDLE) (READLIST (APPEND '(C) (CDR MIDDLE) '(R)))]))
'CARCDR)
(PUTPROP NAME 1Q 'ACS)
(SETQ COUNT (ADD1 COUNT))
(GO LOOP)))
EXPR))
(SETUPCARCDRS)
(DEFV NACS 5Q)
(DEFV VALUEAC 1Q)
(DEFV FARGAC 1Q)
(DEFV GOTABAC 1Q)
(DEFV ARRAYAC 1Q)
(SETQ INUM0 (MAKNUM 0Q 'FIXNUM))
(LAP CMPBREAK SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 0Q (E TALK) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(MOVEI 2Q (QUOTE 2Q))
(PUSH P 1Q)
(MOVE 1Q (SPECIAL DEBUGXPR) S)
(CALL 2Q (E PRINTLEV) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
(POP P 2Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E NCONS) S)
(JCALL 1Q (E ERROR) S)
NIL
(LAP COMPERR FSUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (*COMPILER ERROR*)) S)
(JCALL 2Q (E CMPBREAK) S)
NIL
(LAP LAPNOTES SUBR)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE EVAL) S)
(PUSH P D)
(PUSH P (SPECIAL TRACELIST) S)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG1 (JCALL 1Q (E COPY) S)
NIL
(LAP USERERR FSUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (*USER ERROR*)) S)
(JCALL 2Q (E CMPBREAK) S)
NIL
(DEFV TRACELIST NIL)
(LAP ATMARGIN SUBR)
(CALL 0Q (E CHRCT) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E LINELENGTH) S)
(CAME 1Q 0Q P)
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CARRETN SUBR)
(CALL 0Q (E ATMARGIN) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (POPJ P)
NIL
(LAP LINEF SUBR)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG3)
(CALL 0Q (E TERPRI) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP MAPPRINS SUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE PRINS) S)
(JRST 0Q *MAPC)
NIL
(LAP PRINS SUBR)
(PUSH P 1Q)
(CALL 1Q (E FLATSIZE) S)
(CALL 1Q (E ADD1) S)
(PUSH P 1Q)
(CALL 0Q (E CHRCT) S)
(POP P 2Q)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINEF) S)
TAG2 (POP P 1Q)
(JCALL 1Q (E PRINTEXPR) S)
NIL
(LAP PRINTEXPR SUBR)
(CALL 1Q (E PRIN1) S)
(MOVEI 1Q (QUOTE " ") S)
(JCALL 1Q (E PRINC) S)
NIL
(LAP PRINTSTAT SUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG2)
(CALL 0Q (E CARRETN) S)
(MOVEI 1Q (QUOTE 11Q))
(CALL 1Q (E TAB) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE 2Q))
(CALL 1Q (E TAB) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 5Q 0Q P)
(CAIE 5Q (QUOTE LAP) S)
(JRST 0Q TAG4)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E TAB) S)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE 11Q))
(CALL 1Q (E TAB) S)
TAG1 (POP P 1Q)
(JCALL 1Q (E PRIN1) S)
NIL
(LAP ADDTOLIST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ASSOCR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(CAME 5Q -1Q P)
(JRST 0Q TAG6)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP CONSTANTP SUBR)
(PUSH P 1Q)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG1)
(MOVE 1Q 0Q P)
(CALL 1Q (E STRINGP) S)
(JUMPN 1Q TAG1)
(MOVEI 2Q (QUOTE (T NIL)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMB) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP DELETEPROP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 1Q)
TAG1 (HRRZ@ 5Q 0Q P)
(JUMPE 5Q TAG3)
(HRRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(CAME 5Q -1Q P)
(JRST 0Q TAG7)
(HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q 0Q P)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG7 (HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DEINITSYM SUBR)
(MOVEI 2Q (QUOTE SYMNO) S)
(JCALL 2Q (E DELETEPROP) S)
NIL
(LAP FSUBRP SUBR)
(MOVEI 2Q (QUOTE (FEXPR *FSUBR FSUBR)) S)
(JCALL 2Q (E GETL) S)
NIL
(LAP GETGET SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(HRRZ@ 5Q 1Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG3)
(MOVE 2Q -2Q P)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E SEEKPROP) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(JRST 0Q TAG2)
TAG7 (HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP HASPROP SUBR)
(PUSH P 1Q)
(MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E GETL) S)
NIL
(LAP INITPROP SUBR)
(PUSH P 2Q)
(HRRZ@ 2Q 1Q)
(PUSH P 1Q)
(MOVE 1Q 3Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(HRRM@ 1Q 0Q P)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP INITSYM SUBR)
(MOVEI 3Q (QUOTE 1Q))
(MOVEI 2Q (QUOTE SYMNO) S)
(JCALL 3Q (E INITPROP) S)
NIL
(LAP LSUBRP SUBR)
(MOVEI 2Q (QUOTE (LSUBR *LSUBR)) S)
(JCALL 2Q (E GETL) S)
NIL
(LAP MAKESPECIAL SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE LOCAL) S)
(CALL 2Q (E HASPROP) S)
(JUMPE 1Q TAG5)
(MOVE 2Q (SPECIAL SPECIALS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ADDTOLIST) S)
(MOVEM 1Q (SPECIAL SPECIALS) S)
(MOVEI 2Q (QUOTE (LOCAL AND SPECIAL)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E PRINTMSG) S)
TAG5 (MOVEI 3Q (QUOTE SPECIAL) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP MAKESYM SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL *NOPOINT) S)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL *NOPOINT) S)
(CALL 1Q (E EXPLODE) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E EXPLODE) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(CALL 1Q (E MAKNAM) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MAKEUNSPECIAL SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE SPECIAL) S)
(CALL 2Q (E REMPROP) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP NEXTSYM SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE SYMNO) S)
(CALL 2Q (E GET) S)
(PUSH P 1Q)
(CALL 1Q (E ADD1) S)
(MOVEI 3Q (QUOTE SYMNO) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 2Q (E MAKESYM) S)
NIL
(LAP NTHCDR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E MINUSP) S)
(JUMPE 1Q TAG6)
(MOVEI 1Q (QUOTE (NEGNUM-NTHCDR)) S)
(CALL 17Q (E COMPERR) S)
TAG6
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG10)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG10 (MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG12)
(MOVEI 1Q (QUOTE (ATOM-NTHCDR)) S)
(CALL 17Q (E COMPERR) S)
TAG12 (HRRZ@ 5Q 0Q P)
(MOVE 1Q -1Q P)
(MOVEM 5Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SEEKPROP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E GETL) S)
(PUSH P 1Q)
(JUMPE 1Q TAG2)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP SUBRP SUBR)
(MOVEI 2Q (QUOTE (EXPR SUBR ARRAY *SUBR *UNDEF)) S)
(JCALL 2Q (E GETL) S)
NIL
(LAP TOPCOPY SUBR)
(MOVEI 2Q (QUOTE NIL))
(JCALL 2Q (E *APPEND) S)
NIL
(LAP NOCALL FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NOCALL) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DEFLIST) S)
(CALL 2Q (E XCONS) S)
(JCALL 1Q (E EVALFLUSH) S)
NIL
(LAP EVALFLUSH SUBR)
(PUSH P 1Q)
(CALL 1Q (E *EVAL) S)
(POP P 1Q)
(JCALL 1Q (E FLUSHEXPR) S)
NIL
(LAP CADDRLAM SUBR)
(PUSH P 1Q)
(CALL 1Q (E CDDDR) S)
(JUMPE 1Q TAG2)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE PROGN) S)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP NEEDS SUBR)
(PUSH P 1Q)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JUMPE 1Q TAG4)
(MOVEI 2Q (QUOTE (QUOTE E SPECIAL)) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG6)
(MOVEI 2Q (QUOTE FIXNUM) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E MAKNUM) S)
(MOVEI 2Q (QUOTE 377777Q) S)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG7)
(TDZA 1Q 1Q)
TAG7 (MOVEI 1Q (QUOTE T) S)
TAG6
TAG4
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP P1PROGN SUBR)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E MAPP1) S)
(MOVEI 2Q (QUOTE PROGN) S)
(JCALL 2Q (E XCONS) S)
NIL
(DEFPROP PROGN P1PROGN P1)
(LAP P2PROGN SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 5Q 1Q)
(MOVEM 5Q 0Q P)
(JUMPN 5Q TAG6)
(MOVEI 1Q (QUOTE (NOARGS-P2PROGN)) S)
(CALL 17Q (E USERERR) S)
TAG6
TAG1 (HRRZ@ 5Q 0Q P)
(JUMPN 5Q TAG10)
(MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(HLRZ@ 1Q 0Q P)
(CALL 3Q (E COMPEXPR) S)
(JRST 0Q TAG2)
TAG10 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E COMPE) S)
(HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(DEFPROP PROGN P2PROGN P2)
(LAP NEQ INMACRO)
(HRRZ@ 2Q 1Q)
(MOVEI 1Q (QUOTE EQ) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NOT) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP AND INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG4)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE AND) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE COND) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG3)
TAG4 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
TAG3 (JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE T) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP OR INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG2)
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVEI D (QUOTE NCONS) S)
(PUSH P D)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG3 (MOVEI 2Q (QUOTE COND) S)
(CALL 2Q (E XCONS) S)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PROG1 INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(MOVEI 2Q (QUOTE 5Q))
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG2)
(HRRZ@ 2Q 0Q P)
(MOVEI 1Q (QUOTE 0Q))
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE PROG2) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE PROG2) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROG2) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SELECTQ INMACRO)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE COND) S)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 1Q -3Q P)
(MOVEM 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(HLRZ@ 5Q -3Q P)
(MOVEM 5Q -1Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG5)
TAG6 (HLRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE SETQ) S)
(JRST 0Q TAG7)
(HLRZ@ 5Q -3Q P)
(HLRZ@ 4Q -3Q P)
(HRRZ@ 4Q 4Q)
(HLRZ@ 4Q 4Q)
(MOVEM 4Q -1Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG5)
TAG7 (MOVEI 1Q (QUOTE SELECTQ) S)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q 0Q P)
TAG5
TAG1 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(HRRZ@ 5Q 5Q)
(JUMPE 5Q TAG12)
(PUSH P -2Q P)
(HLRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG14)
(MOVEI 1Q (QUOTE EQ) S)
(JRST 0Q TAG13)
TAG14 (MOVEI 1Q (QUOTE MEMQ) S)
TAG13 (PUSH P 1Q)
(HLRZ@ 1Q -5Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q -4Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(MOVE 5Q -1Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG12 (MOVE 2Q -3Q P)
(MOVEI 1Q (QUOTE T) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E *NCONC) S)
(MOVE 1Q -2Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(DEFLIST (SELECTQ) T SPECIAL)
(LAP P1MAPC SUBR)
(MOVEI 2Q (QUOTE (PROG NIL L1 (COND ((AND ALLARGS) (FN DOCARALLARGS) (GO L1))))) S)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1MAP SUBR)
(MOVEI 2Q (QUOTE (PROG NIL L1 (COND ((AND ALLARGS) (FN DOALLARGS) (GO L1))))) S)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1MAPCAR SUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1) (SETQ TM1 (NCONS NIL)) L1 (COND ((AND ALLARGS) (TCONC TM1 (FN DOCARALLARGS)→
) (GO L1))) (RETURN (CAR TM1)))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1MAPLIST SUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1) (SETQ TM1 (NCONS NIL)) L1 (COND ((AND ALLARGS) (TCONC TM1 (FN DOALLARGS)) (→
GO L1))) (RETURN (CAR TM1)))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1MAPCONC SUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1) (SETQ TM1 (NCONS NIL)) L1 (COND ((AND ALLARGS) (LCONC TM1 (FN DOCARALLARGS)→
) (GO L1))) (RETURN (CAR TM1)))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1MAPCON SUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1) (SETQ TM1 (NCONS NIL)) L1 (COND ((AND ALLARGS) (LCONC TM1 (FN DOALLARGS)) (→
GO L1))) (RETURN (CAR TM1)))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E ALLMAP) S)
NIL
(DEFLIST ((MAPC P1MAPC)
(MAP P1MAP)
(MAPCAR P1MAPCAR)
(MAPLIST P1MAPLIST)
(MAPCONC P1MAPCONC)
(MAPCAN P1MAPCONC)
(MAPCON P1MAPCON)
(MAPL P1MAPLIST)
(MAPCL P1MAPCAR))
P1)
(LAP ALLMAP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG12)
(MOVEI 2Q (QUOTE (QUOTE FUNCTION)) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG12)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
TAG12 (MOVE 1Q -1Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG14)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG14)
(MOVEI 2Q (QUOTE MACRO) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG14)
(MOVE 1Q -1Q P)
(CALLF@ 1Q 0Q P)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG14 (HRRZ@ 2Q -3Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q -4Q P)
(EXCH 1Q 0Q P)
(CALL 1Q (E P1SUBRARGS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG5)
(JRST 0Q TAG10)
TAG11 (HRRZ@ 1Q -3Q P)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG2 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG27)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEI 1Q (QUOTE VAR) S)
(MOVEM 5Q -1Q P)
(CALL 1Q (E NEXTSYM) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E TCONC) S)
(JRST 0Q TAG2)
TAG27 (HLRZ@ 5Q 0Q P)
(MOVEM 5Q -2Q P)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(MOVEM 5Q 0Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG3 (PUSH P -3Q P)
(MOVE 5Q -2Q P)
(JUMPE 5Q TAG34)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CDR) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROG1) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(MOVEM 5Q -2Q P)
(CALL 2Q (E TCONC) S)
(POP P 5Q)
(JRST 0Q TAG3)
(PUSH P 5Q)
TAG34 (POP P 5Q)
(HLRZ@ 3Q 0Q P)
(PUSH P -3Q P)
(MOVEM 3Q -2Q P)
(MOVEM 5Q -1Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG4 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG41)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CAR) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CDR) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROG1) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(MOVEM 5Q -1Q P)
(CALL 2Q (E TCONC) S)
(JRST 0Q TAG4)
TAG41 (HLRZ@ 4Q 0Q P)
(MOVE 5Q -7Q P)
(MOVE 3Q -3Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -4Q P)
(CALL 5Q (E FORMSUBST) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE LAMBDA) S)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q -10Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(CALL 1Q (E P1) S)
(SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q TAG5)
TAG10 (MOVEI 1Q (QUOTE NIL))
TAG5 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP FORMSUBST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P 5Q)
(MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 5Q)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q (SPECIAL SELECTQ) S)
(CAIE 5Q (QUOTE FN) S)
(JRST 0Q TAG5)
(MOVE 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG4)
TAG5 (CAIE 5Q (QUOTE ALLARGS) S)
(JRST 0Q TAG6)
(MOVE 1Q 2Q)
(CALL 1Q (E COPY) S)
(JRST 0Q TAG4)
TAG6 (CAIE 5Q (QUOTE DOALLARGS) S)
(JRST 0Q TAG7)
(MOVE 1Q 3Q)
(CALL 1Q (E COPY) S)
(JRST 0Q TAG4)
TAG7 (CAIE 5Q (QUOTE DOCARALLARGS) S)
(JRST 0Q TAG10)
(MOVE 1Q 4Q)
(CALL 1Q (E COPY) S)
(JRST 0Q TAG4)
TAG10 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E NCONS) S)
TAG4 (HRRZ@ 5Q 0Q P)
(MOVE 4Q -1Q P)
(MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(PUSH P 1Q)
(MOVE 1Q -5Q P)
(CALL 5Q (E FORMSUBST) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 5Q 5Q)
(MOVE 1Q -4Q P)
(CALL 5Q (E FORMSUBST) S)
(HRRZ@ 5Q 0Q P)
(MOVE 4Q -1Q P)
(MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(PUSH P 1Q)
(MOVE 1Q -5Q P)
(CALL 5Q (E FORMSUBST) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP P2MAPC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(CAIE 1Q (QUOTE 2Q))
(JRST 0Q TAG2)
(MOVEI 5Q (QUOTE *MAPC) S)
(HRLM@ 5Q -2Q P)
(MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E CALLSUBR) S)
(MOVEI 5Q (QUOTE (PUSHJ P *MAPC)) S)
(HRLM@ 5Q (SPECIAL LASTOUT) S)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E CALLLSUBR) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP P2MAP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(CAIE 1Q (QUOTE 2Q))
(JRST 0Q TAG2)
(MOVEI 5Q (QUOTE *MAP) S)
(HRLM@ 5Q -2Q P)
(MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E CALLSUBR) S)
(MOVEI 5Q (QUOTE (PUSHJ P *MAP)) S)
(HRLM@ 5Q (SPECIAL LASTOUT) S)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E CALLLSUBR) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(DEFLIST ((MAPC P2MAPC) (MAP P2MAP)) P2)
(LAP ; INMACRO)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP ;; INMACRO)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CATCH INMACRO)
(HRRZ@ 5Q 1Q)
(PUSH P 5Q)
(HRRZ@ 1Q 5Q)
(JUMPN 1Q TAG2)
(MOVE 2Q 5Q)
(MOVEI 1Q (QUOTE ERRSET) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE %CATCH) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROGN) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE ERRSET) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE %CATCH) S)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q 5Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE QUOTE) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CATCH) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE EQ) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE OR) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE (T (ERR (QUOTE THROW)))) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE COND) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q 5Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE ERRSET) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE %CATCH) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE ((ERR (QUOTE THROW)))) S)
(PUSH P 1Q)
(HRRZ@ 1Q 5Q)
(CALL 2Q (E *APPEND) S)
(MOVEI 2Q (QUOTE CATCH) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SELECTQ) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE COND) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP THROW INMACRO)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE THROW) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
TAG2 (CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CATCH) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE SETQ) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -1Q P)
(MOVEI 1Q (QUOTE (ERR (QUOTE THROW))) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROGN) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(DEFLIST (CATCH THROW) T SPECIAL)
(LAP NCONC INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG1)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG2)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 1Q)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *NCONC) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP MSG INMACRO)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(PUSH P 0Q P)
(MOVEM 1Q -2Q P)
(PUSH P 5Q)
(CAIE 1Q (QUOTE T) S)
(JRST 0Q TAG10)
(MOVEI 2Q (QUOTE (TERPRI)) S)
(JRST 0Q TAG7)
TAG10 (CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG11)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -3Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG13)
(MOVE 1Q -3Q P)
(CALL 1Q (E MINUS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE LINES) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG12)
TAG13 (MOVE 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE SPACES) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
TAG12 (JRST 0Q TAG7)
TAG11 (MOVE 1Q -3Q P)
(CALL 1Q (E STRINGP) S)
(JUMPE 1Q TAG15)
(MOVE 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE PRINAC) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG7)
TAG15 (MOVE 1Q -3Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG16)
(HLRZ@ 5Q -3Q P)
(CAIE 5Q (QUOTE E) S)
(JRST 0Q TAG16)
(HRRZ@ 2Q -3Q P)
(HLRZ@ 2Q 2Q)
(JRST 0Q TAG7)
TAG16 (MOVE 1Q -3Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG21)
(HLRZ@ 5Q -3Q P)
(CAIE 5Q (QUOTE T) S)
(JRST 0Q TAG21)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE TAB) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG7)
TAG21 (MOVE 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE PRINA) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
TAG7 (MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(POP P -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG6 (HLRZ@ 2Q 0Q P)
(MOVEI 1Q (QUOTE PROGN) S)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE (NIL)) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 2Q (E *NCONC) S)
NIL
(LAP TTYMSG INMACRO)
(HRRZ@ 2Q 1Q)
(MOVEI 1Q (QUOTE MSG) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (TALK)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE (OUTC NIL NIL)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PROG1) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE OUTC) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP TTYIN INMACRO)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(PUSH P 1Q)
(HLRZ@ 5Q -2Q P)
(CAIE 5Q (QUOTE TTYIN) S)
(JRST 0Q TAG2)
(MOVEI 1Q (QUOTE INC) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE OUTC) S)
TAG1 (CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1) (SETQ TM1 (INOUTC NIL NIL)) (RETURN (PROG1 (PROGN EXPRS) (INOUTC TM1 NIL)))→
)) S) (MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1 INOUTC)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE EXPRS) S)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E LSUBST) S)
NIL
(DEFP TTYOUT TTYIN INMACRO)
(LAP MAPATOMS INMACRO)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE (MAPC (FUNCTION (LAMBDA (TM1) (MAPC FN TM1))) OBLIST)) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (FN TM1)) S)
(JCALL 3Q (E SUBPAIR) S)
NIL
(DEFLIST (OBLIST) T SPECIAL)
(LAP P1SUBSET SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E LENGTH) S)
(CAIN 1Q (QUOTE 2Q))
(JRST 0Q TAG2)
(MOVEI 1Q (QUOTE (ARGNO-P1SUBSET)) S)
(CALL 17Q (E USERERR) S)
TAG2 (MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE VAR) S)
(CALL 1Q (E NEXTSYM) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1 TM2) (SETQ TM1 (NCONS NIL)) L1 (COND ((NULL ALLARGS) (RETURN (CAR TM1))) ((F→
N (SETQ TM2 DOCARALLARGS)) (TCONC TM1 TM2))) (GO L1))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1 TM2)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1EVERY SUBR)
(MOVEI 2Q (QUOTE (PROG NIL L1 (COND ((NULL (AND ALLARGS)) (RETURN T)) ((FN DOCARALLARGS) (GO L1))))) S)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1SOME SUBR)
(PUSH P 1Q)
(CALL 0Q (E GENSYM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 3Q (QUOTE (PROG (TM1) L1 (COND ((NULL (SETQ TM1 (AND ALLARGS))) (RETURN NIL)) ((FN DOCARALLARGS) →
(RETURN TM1)) (T (GO L1))))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (TM1)) S)
(CALL 3Q (E SUBPAIR) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E ALLMAP) S)
NIL
(LAP P1APPLY SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E P1SUBRARGS) S)
(PUSH P 1Q)
(CALL 1Q (E CDDR) S)
(JUMPE 1Q TAG5)
(MOVEI 1Q (QUOTE APPLY) S)
(JRST 0Q TAG4)
TAG5 (MOVEI 1Q (QUOTE *APPLY) S)
TAG4 (MOVE 2Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 2Q (E CONS) S)
NIL
(LAP P1ERRSET SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL INPROG) S)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E P1) S)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE ERRSET) S)
(CALL 2Q (E XCONS) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFLIST ((SUBSET P1SUBSET) (EVERY P1EVERY) (SOME P1SOME) (APPLY P1APPLY) (ERRSET P1ERRSET))
P1)
(LAP P2APPLY# SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG7)
(CALL 1Q (E CADADR) S)
(MOVEI 2Q (QUOTE (FEXPR FSUBR *FSUBR)) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E GETL) S)
(JUMPN 1Q TAG1)
TAG7 (MOVE 3Q -1Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E CALLSUBR) S)
(JRST 0Q TAG2)
TAG1 (MOVE 2Q (SPECIAL FARGAC) S)
(HRRZ@ 1Q -3Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E LOADCOMP) S)
(CALL 0Q (E CLEAR2BOTH) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E PROTECTACS) S)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE 17Q))
(CALL 2Q (E OUTCALL) S)
(MOVE 2Q -1Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP P2ERRSET SUBR)
(PUSH P 1Q)
(PUSH P 3Q)
(CALL 0Q (E CLEAR1) S)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE TAG) S)
(CALL 1Q (E NEXTSYM) S)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE 0Q))
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 4Q (E GENCONST) S)
(CALL 1Q (E OUTPUSH) S)
(PUSH P (SPECIAL VALUEAC) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 2Q -6Q P)
(HRRZ@ 2Q 2Q)
(JUMPN 2Q TAG4)
(MOVEI 2Q (QUOTE (T)) S)
TAG4 (MOVEI 1Q (QUOTE QUOTE) S)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(EXCH 1Q -3Q P)
(CALL 2Q (E LOADARG) S)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE (NIL . TAKEN)) S)
(CALL 1Q (E SLOTPUSH) S)
(MOVEI 1Q (QUOTE (JSP 13Q *ERRSET1)) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q (SPECIAL PDL) S)
(CALL 1Q (E TOPCOPY) S)
(MOVE 2Q (SPECIAL VALUEAC) S)
(MOVEM 1Q 0Q P)
(HRRZ@ 1Q -6Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 2Q)
(CALL 2Q (E COMP) S)
(MOVE 2Q 1Q)
(EXCH 1Q 0Q P)
(CALL 2Q (E LOADARG) S)
(POP P -2Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E RESTOR) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E REMOVL) S)
(CALL 0Q (E SLOTPOP) S)
(CALL 0Q (E SLOTPOP) S)
(CALL 0Q (E SLOTPOP) S)
(CALL 0Q (E SLOTPOP) S)
(CALL 0Q (E SLOTPOP) S)
(CALL 0Q (E SLOTPOP) S)
(CALL 0Q (E CLEAR2BOTH) S)
(CALL 0Q (E CLEARACS) S)
(MOVE 2Q -5Q P)
(MOVE 1Q (SPECIAL VALUEAC) S)
(CALL 2Q (E MARKVAL) S)
(MOVEM 1Q -2Q P)
(MOVEI 1Q (QUOTE (JRST 0Q *ERRSET2)) S)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q -4Q P)
(CALL 1Q (E OUTSTAT) S)
(MOVE 1Q -2Q P)
(SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(DEFLIST ((APPLY# P2APPLY#) (ERRSET P2ERRSET)) P2)
(LAP IGNORE SUBR)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(LAP CALL FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE CALL) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DEFLIST) S)
(CALL 2Q (E XCONS) S)
(JCALL 1Q (E FLUSHEXPR) S)
NIL
(LAP *SUBR FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE *SUBR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JCALL 17Q (E DEFLIST) S)
NIL
(LAP *FSUBR FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE *FSUBR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JCALL 17Q (E DEFLIST) S)
NIL
(LAP *LSUBR FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE *LSUBR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JCALL 17Q (E DEFLIST) S)
NIL
(LAP GLOBALMACRO FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE GLOBALMACRO) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE T) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JCALL 17Q (E DEFLIST) S)
NIL
(DEFP *EXPR *SUBR (FEXPR FSUBR))
(DEFP *ARRAY *SUBR (FEXPR FSUBR))
(DEFP *FEXPR *FSUBR (FEXPR FSUBR))
(DEFP *LEXPR *LSUBR (FEXPR FSUBR))
(DEFLIST ((EXIT 1Q)
(SPRINT 2Q)
(PRINA 2Q)
(PRINAC 2Q)
(LINEREAD 1Q)
(READL 1Q)
(INSERT 4Q)
(MERGE 4Q)
(SORT 3Q)
(ERR 1Q)
(ERROR 1Q)
(DIR 1Q)
(SPACES 2Q)
(PRINL 2Q)
(PRINLC 2Q)
(TYOA 2Q))
*SUBR)